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OUP/M — A 6502 OPERATING SYSTEM 

Chapter 1 Introduction 

CP/M is a monitor control program for microcomputer system 
development which uses flexible disks for back-up storage* It is a 
standard operating system widely used on 8085-, Z80- and 8080- based 
machines. An adaptation, CP/M-86, is being used with the newer 16-bit 
systems based on the 8086 and 8088 microprocessors (for example, it 
runs on the IBM personal computer), while CP/M-68 is being developed 
for the 68000 microprocessor* 

The CP/M monitor provides rapid access to programs through a 
comprehensive file management package. The file subsystem supports a 
named file stucture, allowing dynamic allocation of the file space as 
well as sequential and random file access. Using this file system, a 
large number of programs can be easily stored to or loaded from the 
disk interactively or under program control. 

CP/M provides a collection of routines to manage many kinds of I/O 
devices. These routines can be easily modified to transport the CP/M to 
any 8080-, Z80- and 8085-based microcomputers. 

CP/M also supports a set of useful and powerful utilities such as 


editor, assembler, debugger and several disk housekeeping programs as 
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well as various high level language compilers* These facilities make 
the whole system versatile and give microcomputers capabilities found 
on minicomputers 

Although CP/M has been accepted as a standard operating system for 
microcomputers and has become very popular, it can not be run on the 
6502-based microcomputer system. Further, up to this point there has 
not been much interest in adapting CP/M for the 6502-based machines. 
Manufacturers, such as Apple, Commodore, and Radio Shack have developed 
their own unique operating systems for their 6502-based machines* That 
is, there has been no concentrated effort to develop a common 6502 
based operating system. 

The Computer Science Department at Ohio University owns a collection 
of Ohio Scientific Instruments (OSI) microcomputers which are 
6502-based. They are supported by a very primitive operating system 
which lacks of many of the conveniences found in the CP/M and is also 
incompatible with the operating systems found on Apple II, Commodore 
PET 1 s, Commodore 64*s and Radio Shack color computers. A need exists 
for an operating system which could be shared by all 6502 based 
microcomputers. 

The problem addressed in this research project is the development of a 
portable 6502 based operating system which has all the desirable 
features of CP/M. That is, CP/M is used as a model in the developing 


because it has been so widely accepted by the microcomputer users. One 


3 




of the appendices of this report is a user’s manual for the present 
version of such a system — OUP/M, and another contains the complete 
source listing. 

Developing such an operating system is a large undertaking. In order 
to make it more managable the project has been broken down into several 
phases. Phase one, the subject of this report, is the development of 
OUP/M for a specific computer configuration — OSI. Future phases are 
to cover the development of assemblers, loaders, editors, etc, — a 
host of necessary utilities — and the addition of a porting system. 

In the development of OUP/M, an OSI C-3 microcomputer system was 
used. This system consists of a 6502 CPU, a dual 8-inch floppy disk 
drive, a console, a printer, and 56 K bytes of RAM. On this machine all 
I/O is memory mapped and address space layout has to be taken into 
consideration• 


The general memory layout for the OSI is as follows, with addresses 
given as hexadecimal values: 


$0000 — $BFFF 
$C000 — $CFFF 
$D000 — $EFFF 
$F000 — $FFFF 


48K bytes of static RAM 

I/O ports and contollers 

8K bytes of static RAM 

I/O ports and controllers, disk boot 


strap and CPU vectors 
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The printer and console are industry standard serial devices 
controlled via 6850 ACIAs (asynchronous communication interface 
adapters). Disk control is through a non-standard interface. A 6820 
PIA (peripheral interface adapter) is used to control the head movement 
and loading/unloading, while a 6850 ACIA is used for the data 
read/write functions. Exact usage of these controllers will be 
explained later. 

Knowledge of standard CP/M was gained through careful study of 
existing documentation followed by disassembling the object code into 
Z-80 mnemonics and then doing an extensive walk-through. This was then 
followed by extensive experiments to determine disk/track capacity 
using the OSI disk controller. 

After this a design for the file system was worked out and coding and 
testing began. Mr. Liu Qi-Wen developed the CCP while the author did 
the work on the BDOS, BIOS and installation. Note CCP, BDOS and BIOS 
are CP/M stuctures to be explained later. 

Most of the development was done between Jan. and Aug. 1982 while 
Jun. to Aug. 1983 was devoted to the writing of the OUP/M manual. 

In the following sections additional details will be presented, 
including a brief discussion of the architecture for CP/M and the 
differences between the CP/M and the OUP/M. 
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At the end of phase one, the ’kernel* for OUP/M has been developed, 
tested and installed along with a disk utility program — DSKUTY. This 
program permits formatting of diskettes and copying of all or parts of 


a diskette 
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CHAPTER 2 Details 


2.1 CP/M overview 

CP/M is logically divided into three parts: 

BIOS Basic Input/Output system. 

BDOS Basic Disk Operating system. 

CCP Console Command Processor. 

The BIOS provides the primitive operations necessary to access the 
disk drives and to interface standard peripherals (teletype, CRT, 
reader and punch) and user-defined peripherals, and can be tailored by 
the user for any particular hardware environment by 'patching*. 

The BDOS provides disk management by controlling one or more disk 
drives containing independent file directories. The BDOS implements 
disk allocation strategies which provide fully dynamic file 
construction while minimizing head movement across the disk during 
access. There are 37 system functions available to the assembly 
language user. Among them are the following commonly used: 

Search look for a particular disk file by name. 

Open open a file for further operations. 
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Close close a file after processing* 

Rename change the name of a particular file. 

Select select a particular disk drive for further 
operations• 

The CCP provides symbolic interface between the user's console and the 
remainder of the CP/M system. The CCP reads the console device and 
processes commands typed in by the user, which include listing the file 
directory, typing the content of files and controlling the operation of 
transient programs, such as assembler, editor and debugger. There are 
6 built-in commands within the CCP listed below: 

ERA erase specified files. 

DIR list file names in the directory. 

REN rename the specified file. 

SAVE save memory contents of a file onto the disk. 

USER change the user code• 

2.2 Work environment 

The work environment, which the OUP/M operating system was written 
for and was developed on, includes a 6502-based microcomputer, a dual 
disk drive which can hold two single sided, single density and soft 
sectored 8-inch floppy disks, a terminal and a printer. The hardware 
configuration of the microcomputer is as follows: 
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1 • The 6502 CPU : is a central processor unit, which supports a set 
of 6502 instuctions, an 8~bit data bus and a 16-bit address bus. 


2. memory configuration : The memory consists of 56K RAM and 8K I/O 
interfaces. The assignment of the memory is listed as follows: 


$0000 - $00FF ( RAM ) 
$0100 - $01FF ( RAM ) 

$0200 - $BFFF ( RAM ) 
$C000 - $CFFF 

$D000 - $EFFF ( RAM ) 
$FE00 - $FFF9 ( ROM ) 

$FFFA - $FFFF ( ROM ) 


is page zero. 

is a hardware stack set.aside 
for the 6502. 
is free for programs, 
is reserved for various I/O 
interfaces. 

is free for the programs. 

is a resident monitor and disk 

bootstrap. 

are non-maskable interrupt vector, 
reset vector, and IRQ ( or BRK ) 
interrupt vector respectively. 


3. I/O interface configuration : Memory locations $C000 through 
$CFFF are reserved for various I/O interfaces for both the system and 
the user to use. Only few of them are used now. The rest are reserved 
for future expansion. Listed below are all installed I/O interfaces 
along with their usage. 


$C000 - $C003 : is a 6820 peripheral interface adapter (PIA) 


used as disk controller, (See below for details) 

$C010 - $C011 : is a 6850 asynchronous communication interface 

adapter ( ACIA ) used as disk I/O port to 
transfer the data between the disk and 
memory. It must be initialized(control 
byte $58) to perform asynchronous transmision 
as follows: 

a. Baud rate is set to clock rate divided by 
one • 

b. Character bit number is set to 8. 

c. Parity is set to even. 

d. Stop bit number is set to 1 , 

e. interrupt is disabled. 

$CF02 ~ $CF03 : is an asyncronous communication interface 

adapter ( ACIA ) used as printer I/O port to 
send the data from memory to the printer. It’s 
initialization is the same as disk I/O port 
mentioned above except that the baud rate is 
set to clock rate divided by 16. 

$FC00 - $FC01 : is an asyncronous communication interface 

adapter ( ACIA ) used as console I/O port 
to transfer the data between the console 
and memory. It's initialization is the 
same as the printer I/O port mentioned above. 

$FC00 - $FC07 : is a " soft switch" for selecting an alternate 


processor(6800 , Z80).. 
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4. Disk controller : is a hardware configuration which will control 
the drive action, such as drive head loading and unloading, drive head 
stepping forward and backward, data writing or erasing enable and 
disable, etc. Normally CP/M runs on machines which use a WD-1771 chip 
as their disk controller. However the OSI machine does not possess 
this chip. Instead, it uses a 6820 PIA as its disk controller. The 
port A of it is used as input control (except bit 6 is used as output), 
where the register addressed by $0000 is the data buffer and the 
register addressed by $C001 is its corresponding control register. The 
port B of the PIA is used as output control ( including bit 6 of port 
A), where the register addressed by $C002 is the data buffer and the 
register addressed by $C003 is its corresponding control register. 
Listed below is the correspondence between the bits in the data buffers 
and their various uses • 


Bit No. 
0 
1 
2 

3 

4 

5 

6 
7 


PORT A 

Usage 

drive A is ready ( low active, input ) 
track 0 is concerned ( low active, input ) 
fault is found ( low active, input ) 
not used. 

drive B is ready ( low active, input ) 
disk is write protected ( low active, input ) 
selects drive B ( low active, output ) 
index hole is found ( low active, input ) 




Port B 


Bit No. usage 

0 enables writing ( low active, output ) 

1 enables erasing ( low active, output ) 

2 indicates drive head stepping direction 

( 0 for stepping toward track No. 76 

1 for stepping toward track No. 0 ) 

3 steps the drive head ( transition from 1 to 0 ) 

4 resets fault ( low active ) 

5 selects drive A ( high active, output ) 

6 current adjust ( output ) 

( 0 for track No. 43 - 76 
1 for track No. 0 - 42 ) 

7 loads the head ( low active, output ) 

2.3 Memory Layout 

Under the OUP/M, memory is divided into several parts as follows: (see 
Figure 2.2 in Appendix A) 

$0000 - $007F : is used by the system, the user should not 

use it. See Chapter 6 in appendix A for 
more details. 

$0080 - $00FF : is available to the user. 

$0100 - $01FF : is reserved for the hardware stack. 


$0200 - $AFFF : 


$B000 - $BFFF : 


$C000 - $CFFF : 


$D000 - $EFFF : 


$FC00 - $FC01 : 

$F000 - $FFFF : 


is the user area where system utility and 
user programs run. When the user wants to 
run a program, the system loads it into this 
area with $0200 as the start of execution 
address. 

is disk I/O buffer. Unlike CP/M, we have no 
physical sector header information on the 
track. When the system wants to read a record 
from a certain track, it reads the whole track 
into this buffer and moves the data between it 
and the default I/O buffer (or user defined 
buffer). 

is peripheral interface area. This area is for 
peripheral interfaces such as ACIA, PIA and 
some other interfaces. We currently only use: 
$C000 - $C003 — Disk control ports. 

$C010 - $C011 — Disk I/O port. 

$CF02 - $CF03 — Line printer I/O port, 
is for operating system. See section 2.2.2 
in Appendix A for details, 
is a console I/O port. 

is a resident monitor and disk bootstrap. 

There are some exceptions mentioned below: 

$FFFA - $FFFB Non-remaskable interrupt 
vector. 


$FFFC - $FFFD 


Reset vector 
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$FFFE - $FFFF Interrupt or break vector 
are 6502 vectors which point to $01(20, $FFA0, 
$0130 respectively. 

2.4 Disk layout ( see figure 2.4 in appendix A v 


Track 0 contains cold loader, BIOS and part 
of BDOS. 

Track 1 contains CCP and rest of BDOS, 

Track 2 is reserved for further use. 

Track 3 contains the directory of each file in 
the disk. 


Track 4-76 will store the system utilities and 
user programs. 


There are 7 blocks in each track. Block size in this system is fixed 
as 512 bytes. From track No. 4 through track No. 76 we number each 
block from 0 through 510 with each corresponding to a bit in the bit 
map indicating it's allocation status when this disk is logged in. 
Each block contains four consecutive sectors. No logical sector number 
and no physical sector interleaving are needed. See Section 2.3.2 and 
3.1 in Appendix A for more details about disk layout. 
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2.5 OUP/M CCP and system functions. 

OUP/M CCP is a console command processor which acts as an interface 
between the user and the OUP/M operating system. There are six 
standard commands included in the OUP/M CCP as it's six routines, which 
form the main part of the CCP itself. There is also a routine which 
controls the operations of transient programs such as assembler, 
editor, debugger and ect. 

When designing the OUP/M CCP, we fully mimic the CP/M CCP. That is, we 
included all the features found in the CP/M CCP. See chapter 4 in 
Appendix A for more details. 

There are 35 system functions in the OUP/M available to the assembly 
programmers. The function names along with their numbers are listed 
below: 


0 

System reset 

19 

Select disk 

1 

Console input 

20 

Create file 

2 

Console output 

21 

Delete file 

3 

List output 

22 

Open file 

4 

Direct console output 

23 

Close file 

5 

Buffer output 

24 

Read record sequentially 

6 

Read console buffer 

25 

Write record sequentially 

7 

Get I/O byte 

26 

Read record randomly 

8 

Set I/O byte 

27 

Write record randomly 
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9 

Get input console status 

28 

Search for first 

10 

Reset disk system 

29 

Search for next 

11 

Get log-in vector 

30 

Rename file 

12 

Get current disk number 

31 

Set file attributs 

13 

Get map address 

32 

Compute file size 

14 

Set write potection 

33 

Set random record 

15 

Get read only vector 

34 

Sent I/O buffer to disk 

16 

Get parammeter table adr. 



17 

Set/get usercode 



18 

Set DMA address 




One noticable difference in numbering and organization of the system 
functions between OUP/M and CP/M should be mentioned here. All the 
functions mentioned above are numbered differently and grouped by 
peripheral device I/O, disk I/O and other user functions. A 
translation table betweem OUP/M system number and CP/M system number is 
shown below: 


OUP/M 

CP/M 

OUP/M 

CP/M 

0 

0 

18 

26 

1 

1 

19 

14 

2 

2 

20 

22 

3 

5 

21 

19 

4 

6 

22 

15 

5 

9 

23 

16 

6 

10 

24 

20 




16 


7 

7 

25 


21 


8 

8 

26 


33 


9 

11 

27 


34 


10 

13 

28 


17 


11 

24 

29 


18 


12 

25 

30 


23 


13 

27 

31 


30 


14 

28 

32 


35 


15 

29 

33 


36 


16 

31 

34 


— 


17 

32 





2.6 Page 

zero usage 





Page zero plays an 

important 

role 

in 6502 

assembly language 

programming. 

The system 

and the 

user 

both want to use it when an 

assembly program is running under the 

system. 

In this case, a 

competition 

may happen. 

There are two 

ways to 

solve this problem. 

swopping and 

. sharing. 





Swopping 

allows both 

the system 

and the 

user use 

the full page zero. 

The system 

initially saves the 

system 

page zero 

in a reserved area. 

freeing page zero for 

an assembly program. Upon 

each function call. 

the system 

page zero 

is restored 

, while 

the user 

page zero is saved. 

After the 

function call, this process 

is reversed. Finally, as the 


program terminates, the system page zero is restored 


But this 
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solution has its disadvantage. It will require more execution time if 
frequent system calls are involved. 

Another way of solving this problem is sharing. This is the method 
adopted in OUP/M. Page zero locations $00 through $7F are reserved for 
the system, while locations $80 through $FF are available to the user 
programs. It is user’s responsibility to take care of swopping if the 
full page zero has to.be used, since there is no built-in function for 
this nor is there any free memory within the OUP/M operating system. 
The user must allocate one page of memory in the transient area and 
code a swopping routine within the program which needs all of page 
zero. 


2.7 Track format and track R/W algorithum 


The 

track 

format 

is presented in 

Chapter 2 

of Appendix A. Sector 

headers 

and 

sector 

gaps have been 

eliminated. 

As 

a consequence of 

this. 

we get 

two 

benefits: increased 

track size 

and 

simpler, speeder 


disk I/O. 

1. Increasing the track size 

The traditional IBM 3740 track format ( See Figure 1 ) is based on 

track headers and sector headers. A repeating pattern of sector 
header, gap, sector data record and gap around the disk is needed. The 
gap after each sector header gives the disk controller time to recover 


r 



IBM 3740 TRACK FORMAT 


index : gap #1 : sector : .* : sector : gap #4 : 

hole : 32 bytes : No.1 : : No* 26 : 320 bytes : 


Where sector format is 


sector : gap #2 : data record : gap #3 : 

header : 17 bytes : area : 33 bytes : 


a. The sector header is composed of 7 bytes as follows: 

Byte 1 contains sector head identification* 

Byte 2 contains track No. 

Byte 3 contains $00. 

Byte 4 contains sector No. 

Byte 5 contains $00 

Byte 6 — byte 7 contain CRC bytes 

b. Data record area is composed of 131 bytes as follows: 
Byte 1 contains the starting flag of the data record area. 
Byte 2 — 129 contain 128 byte data record. 

Byte 130 — 131 contain CRC bytes. 


Figure 1 


IBM 3740 track format 
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so that it can read or write the data record* The gap after the data 
record is required since a write to disk may be slightly longer or 
shorter than last time, due to slight speed variations in disk 
rotation, temperature changes or tolerances in disk drives* 
Consequently some disk space must be used for building up sector 
headers and sector gaps* Thus a single sided, single density, soft 
sectored, eight inch floppy disk can usually hold at most 13 pages of 
data — 26 sectors of 128 data bytes per track* 

The track format in OUP/M eliminates the sector headers and sector 
gaps, making 14 pages of data available in each track* Thus we have 
total 77 * 14 * 256 = 275,968 bytes on each disk which is 19K more than 
under the IBM 3740 format* 

2. Simplifing and speeding up the disk I/O operation 

The CP/M read/write disk algorithm is based on the IBM 3740 track 
format. When it tries to read (write) a file, it reads (writes) one 
sector at a time. In order to speed up these operations, an 
interleaving read/write algorithm is used by CP/M. A file is organized 
into logical sector order rather than in physical sectors. The 
correspondence between the logical sector and physical sector for a 
particular disk drive is given in the translation vector table located 
somewhere in the BIOS and addressed by the first word of its disk 
parameter header (see 2.9.1 for details). The following example shows 
the correspondence of the logical sectors and the physical ones for a 



19 


disk with a sector skew factor of six in CP/M: 

In each track, the logical sector is arranged in term of physical 
sector number as follows: 

1, 7 , 13, 19, 25, 5, 11 , 17, 23, 3, 9, 15, 21 , 2, 8, 14, 20, 26, 6, 

12, 18, 24, 4, 10, 16, 22. 

The correspondence between physical sector No. ( within the track ) 
and its logical sector No. for the whole disk is shown in Table 1. 

A file arranged in logical sector order would save some R/W time. The 

reason is given by the following example. We first assume that a file 

is arranged in physical sector order and consecutively stored in a 

track. Between two consecutive sector reading (writing), there needs 

to be some time to handle the data. Thus the next sector can not be 
read (written), until the next disk revolution. Consequently, 26 

revolutions are needed to read (write) all 26 sectors on a single 

track. 

Next assume that the file is arranged in logical sectors 

corresponding to interleaved physical sectors with a skew factor of 
six, the time it takes the disk to rotate over six intervening physical 
sectors allows the process a chance to do something with the current 


sector's 

data • 

Thus 

, four or 

five consecutive logical sectors may be 

accessed 

within 

one 

revolution 

of the 

disk. Nevertheless, it 

requires 

six revolutions 

to 

read ( or 

write 

) all logical sectors 

from one 


track. 


Track No. Physical sector No. Logical sector No. 


0 1 0 

0 7 1 

0 13 2 

• • • 

• • • 

• • • 

0 22 25 

1 1 26 

1 7 27 

1 13 28 


76 22 2001 


Table 1 

Correspondence between physical 
sector No. and logical sector No. 
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The OUP/M disk R/W algorithm is based on the new track format and the 
following considerations: 

1) There is a disk I/O buffer of 3,5 K bytes in memory. When a 
record needs to be read, the whole track on which the record is stored 
is read to this buffer. The blocking / deblocking routine in the BIOS 
will then take care of getting the 128-byte record requested by the 
BDOS and putting into the location specified by the BDOS. Note in the 
case of writing, the blocking / deblocking routine will first block the 
record to be written from the location given by the BDOS into the above 
buffer and then the modified track in the buffer is written onto the 
disk. 

2) A track indicator which records the number of the current track in 
the disk I/O buffer is used. When BDOS passes the desired track No. to 
the BIOS, a comparision is made to see whether the desired track is 
already in the buffer. If it is in the buffer, no disk I/O is needed 
and the data will flow back and forth between the disk I/O buffer and 
the buffer used by the BDOS. Otherwise the disk I/O operation occurs ( 
see below for details ) and the data then flow back and forth in the 
disk I/O buffer. At the end, the indicator is set to the new track No. 

3) A flush flag, indicating whether the current track in the disk I/O 
buffer has been written to, is also used. When a track boundary is 
crossed and an I/O operation is needed, a check of this flag will yield 
one of the following situations: 

A. If the flag is set, we need to write the current disk I/O 
buffer back onto the track indicated by the track indicator 


and then read the desired track into the disk I/O buffer. The 




flush flag is then reset to zero 


B. If the flag is not set, we just simply read the desired 


track into the disk I/O buffer 


Based on the above considerations, the new disk read algorithum is 
given as follows : 



-tn\c4. 


entry parameters: 

1) desired track No. 

2) desisred relative sector No. within the track. 

3) the address of the buffer required by the BDOS. 


5TAA-T 
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Where 


*1) setting disk ACIA is done by the following instuctions: 

LDA #$03 ; reset disk ACIA 

STA DVACIA 

LDA #$58 ; set disk ACIA 

STA DVACIA 

Putting $58 to disk ACIA will set: 

a. baud rate to clock rate divided by one. 

b. chracter bit number to 8. 

c. parity to even. 

d. stop bit number to 1. 

*2) $43 and $57 are the track header identification. 

*3) If track No. is not matched, then home head to track zero, 
position head over the desired track and go to the ’start* 
position of Figure 3. 

*4' $76 is the starting flag for the data area. 

*5) Data area in a track is 14 pages. When a desired record 
reading ( or writing ) is needed, this area is entirely 
-read out to (or written from) the disk I/O buffer. 

From the above algorithm, the following points should be clear: 

1 ) No distinction between physical and logical sectors is 
needed. Thus no conversion table and routine is needed in the 
BIOS. 

2) We do not need to recognize sector headers — there are 


no sectors 
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3) No delay loop is needed for sector gaps — there are no 

gaps. 

4) No disk I/O is needed except when the track boundaries 
are crossed, 

5) Only one revolution is needed to read ( or write ) a 
whole track. This is faster than what CP/M does, where 6 
revolutions are required for reading ( writing ) an entire 
track, 

6) As a consequence of the above point, there is less 
headwear, lengthening the life of the read-write head* 

Thus we have simplified and increased the speed of the disk I/O 
operation — a faster and simpler disk performance is obtained at the 
cost of using some extra memory, namely the utilization of 3,5 K bytes 
for a track buffer. 

One more thing needs to be mentioned, before we advance to next the 
topic. From the disk R/W algorithm, we know a modified track in the 
disk I/O buffer will not be written to its corresponding track until 
the track boundary is crossed. Thus the latest track will remain in 
the disk buffer and the modified data could be lost, if the current 
disk is switched or the current program has completed. 

This problem is solved as follows: 

1 ) When the current disk is switched, a special routine is 


called to write the modified track buffer to the current 
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track. 

2) When the program is over and the control is returned to 
the CCP, the same routine is called in the CCP to take care of 
writing the modified buffer to the current track. 

Warning: None of these protections will be effective if a disk is 
physically removed from the drive. In this case, lots of data on the 
disk may be lost. 

2.8 Block size and an even/odd addressing algorithm 

The block size or allocation size is 512 bytes in this system. 
Therefore each file is a multiple of 512 bytes in length and there are 
511 blocks available for file storage. Thus it differs from CP/M where 
block sizes are multiples of 1 K bytes. 

The reason for adopting the smaller block size is to let the user 
create smaller files without wasting much disk space. For example, a 
file of 9 records will occupy 3 blocks (1.5 K) if the block size is 512 
bytes, while it will occupy 2 blocks (2 K) in 1 K block size system. 
There are 3 * 128 = 384 bytes and 7 * 128 = 896 bytes disk space wasted 
respectively. Thus the larger block size will waste more disk space 
than the smaller one and this will become tremendous when many tiny 
files are involved. 

Recall that a CP/M directory entry is a 32-byte record. The first 16 
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bytes , called the file parameter area, hold information such as the 
file name, the file type and the extent number. The second 16 bytes, 
called file location area, are pointers to the file location. Usually 
they are single-byte pointers and can point to at most 256 blocks. 
Thus how to point to 511 blocks with such pointers will be a problem 
when the 512 byte block size is to be used. 

To solve the problem mentioned above, we number each pointer from 0 
through 15 according to their order in the file location area, and thus 
implicitly assign an even/odd meaning to them. We also define logical 
block number and store these logical block numbers, instead of physical 
block numbers, in the even or odd pointers as needed. The conversion 
rule between them is as follows: 

If the pointer is even, we have 

physical block number = (logical number - 1 ) * 2 

otherwise, we have 

physical block number = (logical number - 1 ) *2+1. 

Note as a consequence of this rule, even physical block numbers must 
correspond to even pointers while odd ones must correspond to the odd 
pointers. 

Thus the same logical block number in different even or odd pointers 
will point to a different physical blocks. In another words, we can 
use a single-byte pointer in the file location area to point to up to 


511 physical blocks 
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However, this method has a disadvantage. If there are more files 
ending with an even block than those ending with an odd block, then 
more odd blocks will be unfilled. Thus the disk may appear full 
without actually being full. This is because every file must start at 
an even block, by the rule that each block No. must match its even or 
odd pointer. 

The following are two alternative ways to solve the above problem: 

1 ) In the file location area, we could use pairs of 
consecutive bytes as a double-byte pointer, which will then 
permit us to point to any of the 511 blocks. But the amount 
of total directory entries will be reduced by a factor of 2, 
unless a reserved track ( say, track No. 2 ) is used as another 
directory track. 

2) In fact, to point to 511 blocks, we only need 9 bits. 

The extra bit could be found somewhere in the directory entry. 

By using the bit 7 of each first 16 bytes in the directory 
as the bit 8 of each corresponding second 16 bytes, we expand 
the single-byte pointer from 8 bits to 9 bits, which can point 
to any of 511 blocks. 

In order to use bit 7 of each of the first 16 bytes, the 
following changes or restriction should be mentioned: 

a. We would restrict the user code in the 'dr* field to 
be less than $80. 

b. Bit 7 of 'f1 1 through * f8* and *tl 1 through 1 13* is 
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regarded as the file attribute bit in this system. In 
order to use this bit, we could change the file attribute 
bits to bits 0 through 5 of •si* and * 32 * which are not 
used by the system or the user. 

c. The maximum extent No. and record No. within the 
directory are 112 and 64 respectively. Thus there is no 
problem to use their bit 7. 


2.9 Disk parameter tables 

Tables are included in the BIOS which describe the particular 
characteristic of the disk subsystem used by the CP/M. These tables 
can be either hand-coded or automatically generated using the DISKDEF 
macro library included in the CP/M software package. With these 
tables, CP/M can easily deal with various disk subsystems and therefore 
has become a widely used standard oprating system for the 8080- and 
Z80-based microcomputers. 

The first version of OUP/M operating system is intended to be 
specific to the OSI work environment. Thus a much simpler but more 
specific disk parameter header table is used in OUP/M. 
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In the following subsections, a comparision is made betwteen the 
tables in the CP/M and those in OUP/M along with the detailed 
description of the terms in each table. 

2.9.1 Disk parameter header ( DPH ) 

In general, each disk drive has an associated disk parameter header (16 
bytes) which contains information about this disk and provides some 
scratchpad areas for certain BDOS operations. 

The format of a disk parameter header in CP/M is shown below: 


XLT 

SRP1 

SRP2 

SRP3 

DIRBUF 

DPB 

CSV 

ALV 

16b 

16b 

16b 

16b 

16b 

16b 

16b 

16b 


The format of disk parameter header in the OUP/M is shown below: 


DIRBUF 

CSV 

ALV 

0000 

16b 

16b 

16b 

16b 


where each term refers to a 16 bit word. The meaning of each term is: 

XLT contains the starting address of the conversion table between 
logical sector No. and physical sector No., if the value of XLT is 
non-zero. Otherwise logical and physical sector No. are same and no 
conversion is needed. Disk systems with the same sector skew factors 


will share the same conversion table. This word is not used in OUP/M 
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SRP1, SRP2 and SRP3 are scratchpad area reserved for special BDOS 
operations. The initial values are not critical. These are not used 
in OUP/M. 

DIRBUF contains the starting address of a 128-byte directory buffer. 
Since there is only one directory buffer, every DIRBUF in each DPH has 
the same value. DIRBUF in OUP/M contains the starting address of a 
512-byte directory buffer. Two drives in OUP/M adress the same 
directory buffer. 

DPB contains the starting address of the disk parameter block for 
this disk. Disks with the same characteristics have the same value in 
DPB. OUP/M does not use it (see next section for details). 

CVS contains the starting address of the checksum area and is unique 
to each drive. The size of the area is determined by CKS in the DPB ( 
see next section for details ). In OUP/M, CVS contains the starting 
address of the checksum area and is unique to drive 'A* and 'B*. The 
size of this area has a fixed value, namely 14 bytes (see section 2.2.2 
of Appendix A for details). 

ALV contains the starting address of the bit map area and is unique 
to each drive. The size of the area is determined by the maximum 
number of data blocks for this particular disk and computed as ( DSM / 
8 1 + 1 ( see next section for details ). In OUP/M, ALV contains the 
starting adress of the bit map area and is unique to drive 'A* and ’B 1 . 
The size of this area is fixed and computed as 512 / 8 = 64 bytes. 


2.9.2 Disk parameter block table ( DPB ) 
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The disk parameter block ( DPB ) for each disk in the CP/M is rather 
complex, A particular DPB, which is addressed by one or more DPH’s, 
takes the form mentioned below. However there is no actual DPB table 
installed in OUP/M. All values are fixed and buried in the algorithm 
for the specific OSI work environment. This is one of the things which 
should be modified in the second version of OUP/M. 

DPB table in CP/M 


SPT 

BSH 

BLM 

EXM 

DSM 

DRM 

ALO 

AL1 

CKS 

OFF 

16b 

8b 

8b 

8b 

16b 

16b 

8b 

8b 

16b 

16b 


Where each term is a byte or word value, as shown by the '8b' or '16b* 
indicator below the field. 

SPT is the total number of sectors per track. In OUP/M, SPT is 
equal to 28 (sectors). 

BSH and BLM are the data allocation block shift factors. The value 
of BSH and BLM determine implicitly the block size BLS (bytes per 
block). The correspondence between them is shown below: 


BLS 

BSH 

BLM 

IK 

3 

7 

2K 

4 

15 

4K 

5 

31 

8K 

6 

63 


16K 


7 


127 
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Using BSH and BLM, instead of BLS, the desired logical sector number 

corresponding to various block size can be easily decided. In OUP/M, 

we do not use BSH and BLM and the BLS is fixed as 512 ( bytes )• 

EXM is the extent mask. The value of EXM depends upon both BLS and 

whether the DSM (see DSM term ) value is less than or greater than 255 

as shown in the following table. 

BLS DSM < 256 BSM >= 256 

IK 0 

2K 1 0 

4K 3 1 

8K 7 3 

16K 15 7 

In OUP/M we don't use EXM, 

DSM is the maximum number of data blocks supported by this 
particular drive, measured in BLS units. Note it doesn't include the 
reserved operating system tracks. In OUP/M, DSM is equal to 511 
(blocks) and does not include the operating system tracks and directory 
track. 

DRM is one less than the total number of directory entries, which 
can take on a 16-bit value. In OUP/M, DRM is equal to 7 * 4 * 4 - 1 = 
111, a fixed value. 

ALO and AL1 are determined by DRM. They can be considered together as 
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a string of 16-bits, namely: 


ALO I AL1 

IIIIIIIIIIIIIIIII 
00 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 

Position 00 corresponds to the high order bit of the byte labelled 

ALO, and position 15 corresponds to the low order bit of the byte 
labelled AL1. Each bit position reserves a data block for number of 
directory entries, thus allowing a total of 16 data blocks to be 
assigned for directory entries ( bits are assigned starting at position 

00 and filled to the right until position 15). each directory entry 

occupies 32 bytes, resulting in the following table. 


BLS 

DIRECTORY 

ENTRIES 

IK 

32 times the 

bits filled 

2K 

64 times the 

bits filled 

4K 

128 times the 

bits filled 

8K 

256 times the 

bits filled 

16 K 

512 times the 

bits filled 


Thus, if DRM = 127 (128 directory entries), and BLS = 1024 , then 
there are 32 entries per block, requiring 4 reserved blocks. In this 
case, the 4 high order bits of ALO are set, resulting in the value ALO 
= $F0 and AL1 = $00. In OUP/M, we do not use ALO and AL1, because 
total number of directory entries is fixed to be 112. 


CKS is the size of the checksum area for the drive. If the disk 
drive media is removable, then CKS = (DRM + 1) / 4. If the media is 
fixed, then CKS = 0 (no directory record are checked in this case). In 
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OUP/M, the size of checksum area is equal to 14 bytes. 

OFF is number of tracks reserved for system use and skipped at the 
beginning of the physical disk. In OUP/M, this number is equal to 4 
(tracks). Among these, track No.O and No.1 are reserved for operating 
system, track No.2 is reserved for future use and track No.3 is used 
for directory entries. 

2.10 Cold loader and system booting 

The way we arrange cold loader and BIOS in the same track, track 0, 
makes the cold loader much simpler than the CP/M does. We don't need 
to put the disk read routine into the cold loader. When the rest of 
the operating system needs to be loaded, the cold loader just moves the 
BIOS to its permanent location and calls 'warm boot'. 

Scince the OSI computers have two or more system clock frequencies, 
OUP/M includes a routine during clod boot to determine which of Imz, 
2mz or 3mz clocks is being used. Knowing the clock frequency is 
critical in doing disk I/O. The routine looks like: 

* = $2200 
DVACIA = $C010 
FRYCST = $E41B 
SFTSWT = $F701 

FRYCCT .BYTE $31,$31,$31,$31,$31 


t 
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AD$TFY 


A$JTFY 


.BYTE $62,$62,$62,$62 
.BYTE $A0,$A0,$A0,$A0 
.BYTE $A0,$A0,$A0,$A0 


LDA 

#$34 


7 

select 6502 CPU. 

STA 

SFTSWT 




LDY 

#$00 




LDA 

#$03 


7 

set disk ACIA. 

STA 

DVACIA 




LDA 

#$38 




STA 

DVACIA 




STA 

DVACIA 

+ 1 

7 

partial timing delay 

PHA 



7 

depending on the clock 

PLA 



7 

frequency requiring from 

PHA 





PLA 





PHA 





PLA 





STX 

DVACIA 

+ 1 



LDA 

DVACIA 


7 

wait until interrupt is 

BMI 

A$JTFY 


7 

reported. 

INY 





BNE 

AD$TFY 




LDA 

FRYCCT , 

Y 

7 

select proper timing 

STA 

FRYCST 


7 

constant. 


2.11 Parameter passing 
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In 8080-based ( or Z80-based ) CP/M, there are six registers along 
with an accumulator, namely B, C, D, E, H, L and A. The system function 
No, and some required parameters are passed to the BDOS via register C 
and register pair DE . 

In 6502-based OUP/M, there are only two registers X, Y and an 
accumulator A. Hence the system function No. is passed via register X 
and the required parameter is passed via register Y and accumulator A. 

2,12 Stack usage 

Due to the design of the 6502 CPU, There is only one stack, fixed at 
$0100 through $01FF. Any program must share the stack with the system 
program when it is running. Thus the user's use of the stack may be 
limited. 

In designning the OUP/M operating system, we seldom use the stack 
except when 'JSR' and 'RTS* instructions are involved. Thus we leave 
almost all of the stack for the user. 

2.13 Error message handling 

There are only three error situations in the CP/M which the BDOS 
intercepts during file processing, namely 'BAD SECTOR', 'SELECT' and 


'READ ONLY' 
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The 1 BAD SECTOR* message indicates that the disk controller 
electronics has detected an error condition in reading or writing the 
disk. The * SELECT * error occurs when there is an attempt to address a 
drive beyond the number of installed drives. The *READ ONLY* error 
message tells the user that there is an attempt to write to a disk 
which has been designated as read only. 

OUP/M provides a more detailed error message by displaying an error 
number which is described in the error message table (see chapter 7 of 
appendix A for details). 

For example, instead of displaying * BAD SECTOR* in the CP/M, the error 
processing routine in the OUP/M gives the error No. $21 indicating 
'index hole found, while reading*. This may happen due to following 
reasons: 

1) Track No. is not matched. 

2) Track identification is missed, 

3) Starting flag of data area can not be found. 

The above information gives the user a more vivid error indication. 


2.14 Rearranging the OUP/M in memory 


The OUP/M operating system memory map is shown in chapter 2 of 
appendix A. The system program occupies 6.4 K memory, of which CCP uses 



0000 


0080 

0100 

0200 


: page 

zero 

for 

system : 

: page 

zero 

for 

user : 

: 

stack 

: 


user area 


B300 

C000 

D000 

D9CA 

E200 

EFFF 

FFFF 


CCP and 

part of 
BDOS 


: peripheral interface : 
: area : 



part of 



BDOS and 



BIOS 


2 

system 

J 

• 

buffer 

: 


disk I/O 

”7 

: 

buffer 

: 

: 

ROM for booter and 

”7 

: 

tiny monitor 

• 


Figure 4 

A recommended memory map 
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2.3K, BDOS uses 2.7 K and BIOS uses 1.4 K. The system buffer occupies 
1.6 K memory, of which only 1.35 K are used. The disk I/O buffer 
occupies 4 K memory, of which only 3.5 K are used. Thus there are 
approximately 0.75 K memory wasted. 

The Figure 4 is a recommended layout for the next version of OUP/M. 
This new layout would not waste 0.75K of memory. Further, the user can 
get extra memory temporarily by overlaying the CCP area and doing a 
'warm boot' just before the program terminates. In the present 
version, the CCP can also be overlayed but requires delicate 
programming since the user area is separated from the CCP area by the 
disk t/ 0 buffer and the general peripheral area. 
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CHAPTER 1 


INTRODUCTION 


CP/M is an monitor control program for microcomputer systems. It is 
a single user, single task operating system. As an early entry into 
the microcomputer market, CP/M was originally designed to run on the 
8080 based computer system which used IBM- compatible flexible disks 
for data storage. Appropriate modification had to be made to 
accomodate a particular hardware I/O configuration under the CP/M. A 
lot of work has been done to modify the BIOS ( an I/O dependent portion 
of the CP/M ) and install the modified CP/M to any 8080(or Z80 ) based 
computer system. 

There was not too much interest in modifying the CP/M to run on the 
machines which use the 6502 processor as their CPU. As some examples, 
an APPLE II computer system installs a Z-80 card in its periphral slot 
in order to run the CP/M system, which makes it not convenient and 
flexible for use and also costly. The Commodore system does not have 
the standard CP/M operting system, it has to develop its own DOS 
system. 

OUP/M is a single user, single task operating system developed for OSI 
computers with a dual 8'' disk drive. To a large extent this system 
mimics the CP/M operating system. One major difference is that OUP/M 
is 6502-based whereas CP/M is 8080- or Z80-based. 
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Every effort has been made to obtain a portable OUP/M system. 
However, due to limited development resources, this version is pretty 
much specific to the OSI computer. More work needs to be done to 
transport OUP/M to such computers as Apple II Plus, Apple lie. 
Commodore Pet, Commodore 64, etc. 

One needs to be aware of other deviations from the CP/M system 
besides the CPU difference. The present disk format is specific to the 
OSI disk and does not follow the IBM 3740 format. Block size for 

additional file space is handled in increaments of 512 bytes rather 
than 1024 bytes. Consequently a different algorithm is required for 
converting logical block to physical block number on the disk. The 
directory entry itself still remains at 32 bytes per extent. 

Disk I/O is handled via a track buffer using 14 pages ( 14 * 256 
bytes ) per track. This removes the necessity for interleaving 
physical records and also simplifies and speeds up disk I/O. 

Page zero plays an important role in the 6502 assembly language 
programming. A compromise is presented for the system and the user to 
use the page zero if a full page zero is to be used, it is user's 

resposibility to create a swapper to take care of zero page swaping* 

A much simpler cold loader than found in the CP/M is installed on the 

track No. 0 along with the BIOS to take care of the system booting. 
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System function No. and some required parameters are passed to the 
BDOS via register X, register Y and accumulator A in this system, 
instead of register C and register DE in a 8080 or Z80 system as the 
CP/M usually does. 

One other noticable difference is the numbering and organization of 
the system functions. All, except two, CP/M functions have been 
included but are numbered differently and grouped by peripheral device 
I/O, disk I/O and other user functions. 

The six standard CCP commands are included and perform as expected. 

Even with these differences, OUP/M has a very close resemblance to 
the CP/M operating system. Thus those users experienced with CP/M will 
have minimum difficulties switching systems. 

Detailed information for using the OUP/M operating system is presented 
in the following chapters. 

The first two chapters give some basic concepts necessary for 
understanding this system and reading the remaining chapters. Chapter 
2 describes the OUP/M stucture, disk and memory layout from which the 
user can get the general outline of this system. Chapter 3 contains a 
complete description of the disk file structure, which plays an 
important role in the OUP/M system. Some basic concepts concerning the 
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disk file, such as file directory, bit map, log-in vector, etc, are 
also discussed in detail. 

The next two chapters talk about two important parts of the system: 
CCP and BDOS, Chapter 4 presents the 6 built-in commands along with 
various examples to show how to use these commands. Chapter 5 is the 
central part of this manual as well as of this system. It presents 35 
system functions along with the explanation of their usage and- the way 
to call them from assembly programms. A very important concept — file 
control block ( FCB ) , which the user will frequently meet when 
dealing with disk I/O operation, is carefully explained. 

Chapter 6 describes each page zero location used by the system. 
Those who intend to know more about this system and plan to read the 
system program will benefit from this information. Chapter 7 lists all 
the error messages along with their numbers. Chapter 8 presents a way 
for developing other utilities such as assembler, editor, loader, etc, 
into this system under the OSI work environment. Chapter 9 briefly 
describes the disk read/write utility — +-he only utility installed so 
far. With this utility, back-up copies can be made and modification of 
the system may be easily saved. 



5 


CHAPTER 2 

OUP/M Structure, Memory and Disk Layout 

and booting the system 

2.1 OUP/M Structure 

Like CP/M, OUP/M is logically divided into three parts: 

BIOS Basic Input/Output System. 

BDOS Basic Disk Operation System. 

CCP Console Command Processor. 

. BIOS is a collection of I/O subroutines, which provides the 

primitive operations necessary to access the disk drives and to 
interface the system with standard peripherals. The standard devices 
available now are a console and a line printer. It is possible to add 

another standard devices (such as paper tape reader/punch) and 

user-defined devices (such as a serial communications device). 

• The BDOS basically provides dynamic disk file control and 
management. There are 35 system functions available to the assembly 
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user, 

• CCP is a built-in command interpreter program. It accepts, 
recognizes and executes the command typed in by the user through the 
console, 

The basic relationship among these three parts is as follows: 


: 

CCP 

: 

call 

I I 

return 

: 

BDOS 

: 

call 

I I 

return 

: 

BIOS 

: 


Fig. 2.1 System Structure 


2.2 Memory Layout 

2.2.1 General Memory Map 

Under OUP/M, memory is divided into several parts as follows: 
(see Figure 2.2) 

Page zero: Locations $0000 - $007F are used by the system, the 


user should not use them. 
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Locations $0080 - $00FF are available to the user 

Page one: Locations $0100 - $01FF are reserved for the 

hardware stack. 

User area : Locations $0200 - $AFFF is the area where system 
utility and user programs run. When the user wants to run a program, 
the system loads it into this area with $0200 as the start of execution 
address. 


Disk I/O buffer ( $B000 - $BFFF ) : Unlike CP/M, we have no 

physical sector header information on the track. When the system wants 
to read a record from a certain track, it reads the whole track into 
this buffer and moves the data between it and the default I/O buffer 
(or user defined buffer). 

Peripheral interface area ( $C000 - $CFFF ) : This area is for 
peripheral interfaces such as ACIA, PIA and some other interfaces. We 
currently only use: 

$C000 - $C003 — Disk control ports. 

$C010 - $C011 — Disk I/O port. 

$CF02 - $CF03 — Line printer I/O port. 
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OUP/M operating system ( $D000 - $EFFF ) : See next section for 

detail* 

Console I/O port : $FCOO - $FC01. 

Boot ROM and tiny monitor ( $F000 - $FFFF ) : This area is for 
the system bootstrap program and tiny monitor. There are some 
exceptions. 


$FFFA - $FFFB Non-remaskable interrupt vector, 

$FFFC - $FFFD Reset vector, 

$FFFE - $FFFF Interrupt or break vector 

are 6502 vectors which point to $01C0, $FFA0,$0130 respectively. 

2.2.2 Operating System Memory Usage 

When the system is booted, it will occupy the memory from $D000 
- $EFFF• Roughly, we can divided it into four areas (see Fig. 2.3). 

CCP : $D000 - $D939 

BDOS : $D93A - $E419 


0000 ------ 

: page zero for system : 

0080 —-- 

: page zero for user : 

0100 -- 

: hardware : 

: stack : 

0200 --- 


user area 


B000 --- 

: disk I/O 

: buffer 

C000 —- 

: peripheral 

: interface ports 

D000 - 

: OUP/M operating 

: system 

F000 ---- 

: ROM for booter and 
: tiny monitor 

FFFF- 


D000 -—- 

: CCP 

D93A--—--- 

: BDOS 

E41A- 

BIOS 

E965 - 

: system buffer 

EFFF-——— 


Figure 2.3 

Operating system layout 


Figure 2.2 
memory layout 
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BIOS : $E41 A - $E964 

System buffers : $E965 - $EFFF• 

System buffers are arranged as follows: (see Fig. 2.4) 

Default I/O buffer ( $E965 - $EB64 ) : Unlike CP/M ,it is 
512 byte long. This permits reading / writing 128 byte records or 512 
byte blocks • 

Directory I/O buffer ( $EB65 - $ED64 ) : This is for holding 
the content of directory while doing file operations such as open, 
read, write and etc. 

Bit map area for disk A ( $ED65 - $EDA4 ) : It holds usage 
information for disk A. A bit value of 0 means corresponding block is 
empty, otherwise it is in use. 

Bit map area for disk B ( $EDA5 - $EDE4 ) : The same as 
above,but for disk B. 

Check sum area for disk A ( $EDE5 - $EDF2 ) : Consecutive 
byte pairs contain the check sum for one of the seven blocks in the 
directory, which occupy exactly one track If the user does not type 
CTRL- C after inserting another disk, the values in this area will not 
match the check sum of the corresponding directory blocks and an error 
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will occur. 


Check sum area for disk B ( $EDF3 - $EE00 ) : The same as 
above, but for disk B. 

Default file control block ( $EE01 - $EE23 ) : See 5.1 for 

detail. 


Command input buffer ( $EE80 - $EEFF ) : This buffer is used 
by the CCP for responding to user typed-in commands. 

FCB copy area ( $EE10 - $EF2F ) : A copy of the File 
Control Block when a transient command or a user program is being 
executed. 

2.3 Disk Distribution and Structure 

2.3.1 Track assignment ( see figure 2.5 ) 

Track 0 contains cold loader, BIOS and part of BDOS, 

Track 1 contains CCP and rest of BDOS. 

Track 2 is reserved for further use. 


Track 3 contains the directory of each file in the disk 


E965 


: default I/O buffer : track : cold loader, BIOS and : 

EB65-- 0 : part of BDOS : 

: directory buffer : -- 

ED65-—*--—- track : rest of BDOS : 

: bit map area : 1 : and CCP : 

: of disk A : —— ---—*— 

EDA5---- — track : reserved for : 

: bit map area : 2 : future use : 

: of disk B : --- 

EDE5-- track : disk file : 

: check area : 3 : directory : 

: of disk A : ---- 

EDF3- track : : 

: check area : 4 : : 

: of disk B : : : 

EE01 - . : system utilities : 

: file control block : . : and : 

EE24-—-- . : user files : 

: CCP scrach area : : : 

EE80--- : : 

: command input buffer : track : : 

EFOO-- 76 

: scrach area : 

EF10-- Figure 2.5 

: FCB copy area : disk layout 

EF30-- 

: for future use : 

EFFF-- 

Figure 2.4 
system buffer 

























Track 4 


76 are storing system utilities and user programs. 
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2.3,2 Physical disk orgnization 

. Each track has 7 blocks. Each block has 4 records. Each 
record has 128 bytes. Thus each track holds 3584 bytes. 

. Beginning from track No.4 through track No.76, we number the 
block from 0 through 510. Thus track no.4 has blocks numbered from 0 
through 6, track no.5 has blocks numbered from 7 through 13, and so on 
until track no. 76 which has blocks numbered from 504 through 510. We 
call these numbers the physical block numbers in order to distinguish 
them from the logical block numbers which will be discussed in section 
3.2.2. 


• As mentioned before, we have no physical sector headers. 
The only headers we have on the disk are track headers. 

There are two kinds of track formats which we will discuss below. 

1. Track no. 2 to no.76 format 


I (1) I (2) I (3) I (4) I (5) I (6) I (7) I (8) I 


where 




(1) is a index hole position from which the track R/W starts 


(2) indicates a 1 ms delay is needed. 


(3) contains track beginning identification values: $43 and $57. 


(4) contains the track number. 


(5) indicates a 1.4 ms delay is needed. 


(6) contains the data area starting flag: $76. 


(7) represents the data area. 


(8) contains the ending flags: $47 and $53. 


2. Track zero format 


1(1)1 (2) I (3) I (4) I (5) I (6) I 


where 


(1) is a index hole position from which the track R/W starts. 


(2) indicates a 1 ms delay is needed 
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(3) 

contains the 

loader vector. 

It 

is a memory location address 

to 

which 

the data in 

this track will 

be 

loaded. Currently it is set 

to 

$2200. 







(4) contains the total number of pages for track zero, 

(5) represents the data area, 

(6) contains the ending flags: $47 and $53. 

This information is required for the disk boot ROM. 

2.4 System Booting 

The disk to be booted must be in the drive A because the existing 
ROM boostrap is written with this assumption. After power on, pressing 
' reset 1 and typing ' D 1 , the system will be initialized as follows. 

First step : The permanent bootstrap program will load the program 
on track 0, which contains cold loader, BIOS and part of BDOS into 
memory starting from $2200, then give the control to cold loader. 

Second step : The cold loader first moves the BIOS and part of 
the BDOS into their permanent locations. Then it passes the control to 


the BIOS 
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Third step : The BIOS uses the 'warm boot* 
CCP and the rest of BDOS from track no. 1 into 
then passed to the CCP. 

Fourth step : The CCP displays the system 
gives the prompt 'A>' , then waits for a command from 


routine to read the 
memory. Control is 

version message and 
the user. 
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CHAPTER 3 


Disk File 


3.1 Disk File space 

The disk file space is from track No. 4 through track No. 76. 
Track No. 0 through No. 3 contain the operating system and the 
directory. 

The unit of a file is the block. There are 511 blocks, numbered 
from 0 through 510 in the disk file space as mentioned before. A file 
whose size is less than one block (512 bytes) will occupy one block on 
the disk. A file whose size is between one block (512 bytes) and two 
blocks (1024 bytes) will occupy two blocks on the disk, and so on. 

The block in a file need not be contiguous, this is because of the 
dynamics of file accessing. Blocks are allocated to a file, 
de-allocated from a file as needed. The directory keeps track of which 
blocks are allocated to which files. 

The bit map in memory records allocated and free blocks for a 


particular disk 




I 
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Unlike CP/M, in our system, each block contains four consecutive 
sectors (records)* No logical sector number and no physical sector 
interleaving are needed. 

Physical records are not numbered internally. Numbering is 
through relative location from the beginning of the file in step of 128 
bytes. It f s up to the user to keep track of logical records which are 
smaller or larger than one physical record. 

3.2 File Directory 

3.2.1 Directoy space 

OUP/M uses a fixed length directory of 7 blocks on track No. 3. 
Each directory block has 16 directory entries of 32 bytes. Thus we can 
have at most 112 files on each disk. 

3.2.2 Directory Entry 

The directory entry consists of 32 bytes. We call the first 16 
bytes the file parameter area and the last 16 bytes the file location 


area 
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The directory entry format is illustrated as follows: 


File Parameter Area 


byte 

0 

1 - 8 

9-11 12 13 

14 15 

: 

dr : 

fn 

: tn : ex : s1 : 

s2 : rc: 

: 



d0 — dl 5 

• 


byte 16-31 
File Location Area 
Fig* 3.1 


. File parameter area (see Fig. 3.1) 

dr ( byte 0 ) : A value E5 represents an empty entry 

available to the system for reassignment. Otherwise any value 
represents a user code for an non-empty entry. 

fn ( byte 1 8 ) : file name. This holds the file name 

with byte 1 containing first character. If less than 8 characters are 
needed for the file name, the remaining bytes will be filled with 
blanks ($20). 

tn ( byte 9 - 11 ) : file type. This holds the file type 
with byte 9 containing the first character. If less than 3 characters 
are needed, the others will be filled with blanks. 


ex ( byte 12 ) : 


file extent. We call 16 blocks as one 
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extent, A file having a size less than one extent (16 blocks) occupies 
one directory entry and it's file extent number is 0, A file having a 
size between one extent (16 blocks) and two extents (32 blocks) 
occupies two directory entries with first entry having extent number 0 
and second having extent number 1, and so on(see examples in detail)* 
Thus, a file can have at most 32 extents filling the disk. 

si ( byte 13 ) : is for future use. 

s2 ( byte 14 ) : is for future use. 

rc ( byte 15 ) : number of 128 byte records within this 

extent. 


. File location area (see Fig. 3.1) 

d0 — d15 ( byte 16 ~31 ) : The last 16 bytes in the directory 

entry form the file location area. Each byte within the area is a 
single-byte pointer and contains the logical block number with which we 
can locate the corresponding physical file block on the disk. Using 
file parameter and location information, we can easily locate and 
access all the blocks of a file extent. 

. Recall that the disk file space is divided into physical 
blocks. But we still need to use the logic block number, why? What is 



19 


the definition of the logic block number? We will answer this 
questions below: 

As mentioned before, we have 511 physical blocks which need 2 
bytes to point to (one byte can point to at most 256 blocks). If we 
use 2 bytes in file location area to point to one file block, the total 
number of files which can be identified in the disk (even though there 
are a lot of space in the disk file area) will be reduced by 2. In 
order to solve this problem, we use the so called 'even/odd address' 
method in defining a logical block number. 

In the FCB file location area, we number each single-byte pointer 
(from the beginning of this area) as 0,1,...15, which also assigns an 
even/odd meaning to each pointer. 

With this assumption, we can now talk about logical block number. 
The logical block number can be translated into physical block number 
by the rule: 

If the number is stored in the even byte then 

physical bolck number = (logic block number - 1 ) * 2, 

otherwise, we have 

physical block number = (logical number - 1 ) * 2 + 1. 
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The fact that the same logic block number will represent two 
different physical block numbers will actually make it possible to use a 
single-byte pointer in the file location area to point to 511 physical 

blocks. 

After finding physical block number, we get the corresponding 
track number and the relative block number within this track as 

follows: 

Track number = (physical block number DIV 7) + 4 

The relative Block number = physical block number MOD 7 

Thus, we find the location on the disk on which the corresponding 
file block is stored. 

We illustrate these concepts in the following two examples: 

Example 1. The following is a directory entry for a disk utility 


program. 
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File Parameter Area 


dr : 

fn 

: tn 

: ex 

si 

s2 

rn 

01 44 53 4B 55 

54 59 

20 20 43 4F 

50 00 

00 

00 

1A 


01 

01 

02 

02 

03 

03 

04 

00 

00 

00 

00 

00 

00 

00 

00 

00 

dO 

dl 

d2 

d3 

d4 

d5 

d6 

d7 

d8 

d9 

dIO 

dl 1 

dl 2 

dl 3 

dl 4 

dl 


File Location Area 

File parameter area : * dr 1 being 01 means user code is 01. The 

next eleven bytes correspond to file name DSKUTY and file type COM, 
The ' ex ' being 0 means the file extent number is 0, From ’ rn 1 , we 
know there are 26 records in the file. 

File location area : From the facts that byte 0 is an even byte 
and it's value is 01, we know the corresponding physical block number 
is (1 - 1) x 2 = 0, Further, we also know the track No, where the 

corresponding file block is located, is 

( 0 div 7) + 4 = 4, 

and the relative block number within this track is 


0 mod 7=0 
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Using the same method we find that the whole file occupies block 
No, 0, 1, 2, 3, 4, 5, 6 on track No. 4 — the entire track. 


Example 2. The following is an example for a file requiring two 
directory entries. 

Extent No. 0 

File Parameter Area 

dr : fn : tn : ex si s2 rn 


01 58 59 5A 20 20 20 20 20 46 47 52 00 00 00 40 


05 

05 

06 

06 

07 

07 

08 

08 

09 

09 

0A 

0A 

0B 

0B 

OC 

04 

dO 

dl 

d2 

d3 

d4 

<35 

d6 

d7 

d8 

d9 

dIO 

dll 

dl 2 

dl 3 

dl 4 

dl! 


File Location Aarea 


Extent No. 1 


dr : 


fn 


File Parameter Area 
: tn 


: ex si s2 rn 


01 58 59 5A 20 20 20 20 20 46 47 52 00 00 00 OF 


OD 

OC 

0E 

0D 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

dO 

dl 

<32 

d3 

<34 

d5 

d6 

<37 

d8 

<39 

dIO 

dll 

dl 2 

dl 3 

dl 4 

dl! 


File Location Area 


This file has the name XYZ.FOR and two extents. In extent No. 


0, there are 64 records ( 16 blocks ). In extent No. 1, only 15 
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records are used. Track No* 5, 6, and 7 are involved in storing this 
file. Track No. 5 and 6 are completely used, while on track No. 7, 
only the first 6 blocks are used, the remaining block is unused. 

3.3 Bit map area 

To each disk drive , there corresponds a bit map in memory. 512 
bits, or 64 bytes, are used to record the status of the 511 physical 
blocks on the disk. The first byte corresponds to physical block No.O 

to block No.7, the second to block No.8 to block No. 15.. and so 

on. If a bit is zero, the corresponding block is empty. Otherwise 
the space is occupied by a file. By checking each bit in the bit map, 
the system knows where the empty space is located. This makes it easy 
for the system to assign empty space to a file and get the space back 
from an erased file. 

There is also a byte in memory called the disk log-in vector. 
Bits 0 and 1 of this byte correspond to disk f A' and f B* respectively. 
A *1* indicates the correspondng disk is logged in and the bit map has 
been built for it. 

Each time the user cold or warm boots the system, the bit map for 
disk A and the current disk are built and these disk are logged in. 
When a disk in a drive is exchanged for another one, the user must type 
CTRL-C to warm boot the system and log in the new disk. Otherwise an 


I/O error may be occur 
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CHAPTER 4 

CONSOLE COMMAND PROCESSOR (CCP) 

The user interacts with the system through the console command 
processor (CCP),which reads the command from the console to the command 
buffer located at $EE80 - $EFFF, analyses it, and then branches to the 
corresponding command routine . 

Upon cold boot, the CCP takes over the control, displays the version 
message , logs in disk A, and then prompts the user with *A>* ( 
indicating the current (default) disk is A ) for typing in a command. 

The CCP implements the user typed-in commands at two levels: built-in 
command and transient command. Built-in commands are part of the CCP 
itself,while transient commands are resident on the disk as utilities. 
They will be loaded into the user area starting at $0200 and executed 
when needed, 

4.1 Console Command Processor 

The CCP reads and interprets the commands as follows: 

STEP 0 : First it calls system function No. 10 (reset disk system) to 
select and log in disk A. (Note: This step is executed only in the case 
of cold boot or warm boot. Otherwise The CCP begins at step 1.) 
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I STEP 1 : Sets the stack pointer to $01FE,prompts the user to type 

in a command, gets the command (if any) and puts it into the command 
buffer located at $EE80-$EEFF. 

STEP 2 : Builds the FCB by putting the command name into the file 

name and file type fields, the disk drive No, (if any) into 'dr* field. 
It checks the FCB to see if the file name exists: 

a. If no file name exists, CCP assumes this is a select disk drive 
commmand and selects the drive according to the drive code in the 'dr*. 
It then builds the appropriat bit map, logs in the disk if it was not 
logged in before and then goes to step 1, 

b. Otherwise goes to setp 3, 

STEP 3 : Checks to see if the file name in the FCB is a built-in 
command. There are two tables in the CCP, The first one is a built-in 
command table located at $D021-$D038 which has the following form: 

•DIR ERA TYPESAVEREN USER*. 

The second one is a command routine entry table with each entry 
corresponding to the command located in the first table. The CCP scans 
the first table for a match with the command in the FCB, If found, it 
gets the corresponding entry address from the second table and branches 
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to that routine. After the command is executed, it goes to step 1. 

STEP 4 : If a match cann't be found, the CCP assumes this is a 

transient command. Adding the file type 1 COM * to it, the CCP scans the 

file directory to find a match. 

If a match is found, the CCP loads the file into the user area 

starting at $0200 and gives the control to the program. When this 

program terminates, control is returned to the CCP at step 1. 

However, before loading the trnsient command, the CCP does two 
things: 

a. Copies the FCB to the FCB copy area located at $EF10-$EF2F for 
back-up • 

b. Copies the parameters following the command name (if any ) in 
the command buffer to the default I/O buffer located at $E965-$EB64 
with the first byte containing the length of total number of characters 
in the parameter list. 

For example, if the command is 'EDIT TEST.ASM 1 , the length of 8 will 
be put into the first byte and the ASCII string 'TEST.ASM* will be 
stored into $E966-$E96D. Note 'EDIT® is normally a transient commnad. 

STEP 5 : If a match is still not found, the CCP displays the 
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message 1 NO FILE * and goes to step 1 . 

4.2 Line editing and output control 

The CCP allowes the user to use the followuing editing function when 
it is expecting a command from the keyboard: 

RUB/DEL remove and echoes the last character. 

CTRL-C warm boot when at the beginning of a line. 

CTRL-E cause physical end of a line. 

CTRL-H backspace one character position. 

CTRL-J perform a line feed 

CTRL-M perform a carriage return. 

CTRL-R retype the current line on the next line. 

CTRL-X return to the begnning of the current line. 

The output control funtion allowed are CTRL-P and CTRL-S. 

CTRL-P is a toggle switch between * all output to the console* and *all 
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output to the console and the printer. 

CTRL-S will stop the output temporarily until any key is pressed. It 
is used to stop the output on the high speed display device so as to 
view a segement of the output before continuing. 


4.3 File reference 

A file reference identifies a certain file or a group of files on a 
particular disk. They can be either Unambiguous* or ’ambiguous*. An 
unambiguous file reference indicates a unique file while an ambiguous 
file refernce can be satisfied by a group of files. 

4.3.1 Unambiguous file reference 

.An unambiguous file reference identifies a unique file in a 
specified disk. Its form is as follows: 

[X:] FILENAME [.FILETYPE] 


where 


1. X: is the name of the disk drive on which the file is stored. 

In this system the legal values are *A:* and *B:*. 
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2, FILE NAME is the primary file name for the file and is composed 
of up to 8 printable characters except any of the following special 
characters <>.,;:=?* 

3. FILE TYPE is the extension file name for the file and is 
composed of up to 3 printable characters with the exception metioned in 
file name. 

By convention, the file type more specifically describes the kind of 
data in the file. The system recognizes several default file used for 
special purposes. For example: 

COM Executable command program 

ASM Assemble source file 

HEX Hex format file 

PRN Print or listing file 

4. Lower case characters in the file reference are allowed and will 
be converted to upper case by the CCP. 

5. The terms between the square brackets, such as X: and .FILE 
TYPE, are optional. If a drive name is omitted, it is assumed that the 
current disk is referred. 
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.Examples: 

Example 1. A: PROGRAM 1.ASM represents a file with the primary 

name PROGRAM 1 and the file type ASM and is stored in the disk A, 

Example 2. B: PROGRAM1.ASM represents a file with the same file 
name as in example 1 but is stored in disk B. 

Example 3. PROG.ASM represents a file with the primary file name 
PROG and the file type ASM and is stored in the current disk which may 
be either diak A or disk B. 

4.3.2 Ambiguous file reference 

.An ambiguous file reference is used for directory search and pattern 
matching. The form of an ambiguous file reference is similar to an 
unambiguous file reference except the symbol 1 ? 1 may be interspersed 
thoughout the primary and extension file names and the symbol ' ** may 
replace the whole primary and/or extension file name. In various 
commands within the OUP/M, the 1 ? 1 matches any character of a file name 
in the '?* position and the '** is equvalent to 1 ????????', if it 
occurs in the position of the primary name, or to 1 ???' if it is in the 
extension name. 


Examples: 
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The examples which we will discuss are based on the following 
unambiguous files: 

PROGRAM1.ASM 
PR0GRAM2.ASM 
PROG .ASM 
PROGRAM1.COM 
PROGRAM2.COM 
PROG .COM 

Ambiguous file reference Corresponding unambiguous files 

PROGRAM?.ASM PROGRAM1.ASM 

PR0GRAM2.ASM 

PROG????.ASM PROG .ASM 

PROGRAM1.ASM 
PROGRAM2.ASM 

PROGRAM1.* PROGRAM1.ASM 

PROGRAM1.COM 

*.* all files 

*.COM PROG .COM 
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PROGRAM1.COM 
PROGRAM2.COM 


4.4 Built-in commands 

Built-in commands are part of CCP program itself. There are 6 
built-in commands in this system, which will be discussed in detail in 
the following sections: 

ERA erases specified files. 

DIR displays the specified file names and their sizes. 

REN renames the specified file. 

SAVE saves the file into disk under a specified name. 

TYPE types an ASCII file at the console. 

USER changes the user code. 

In the description below, we assume the following abbrevitions: 

ufn represents the unambiguous file refereces 

afn represents the ambiguous file references 
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4.4,1 Selecting disk command 

The user can select the current (default) disk by typing the disk name 
followed by a colon ( : ). The following example will demonstrate the 
usage of this command and its result• At the beginning, we assume the 
current disk is ’A*. 

A > DIR ; lists all the files on disk A 

PROGRAM 1 .COM 8 
PROGRAM 2. ASM 12 

A > B: ; selects disk B 


B > DIR DSKFL1.* 


DSKFLl 

ASM 

20 

DSKFL1 

COM 

10 

DSKFLl 

DAT 

15 


B > A: 


; list all the files 
; with primary name DSKFL1 
; in disk B 


; switch back to disk A 


4.4.2 ERAse command 


FORMAT: ERA afn 
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This command will remove all files which match the ambiguous file 
reference afn from the specified disk. If the file can not be found, 
an error message 1 NO FILE 1 will appear. Otherwise files are removed 
and the space occupied by the files will be returned to the free space 
list. 

The following examples illustrate the use of this command: 

Example 1. ERA *.* will erase all files on the current disk. 
Before erasing. The CCP will prompt the message 
ALL (Y/N) ? 

If the user types Y, all the files will be removed and the control will 
be returned to the CCP. 

Example 2. ERA PROGRAM7.COM will erase all the files on the 
current disk which match the ambiguous file reference PROGRAM7.COM. 

Example 3. ERA B: PROGRAM 1 . * will delete all the files on disk B 
with the primary name PROGRAM1. 

4.4.3 DIRectory command 

FORMAT: DIR afn or DIR X: 

This command will list the names and size of all files which match the 
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ambiguous file reference afn, if command is 1 DIR afn * or all the 
files in the specified disk, if the command is 1 DIR X: 1 . If no file 
can be found, the error message 1 NO FILE 1 will be displayed at the 
console. 

.Examples 

Example 1 . DIR A: ( or DIR, if A is the current disk ) will list 
all the files at the console in the following format: 


PR0GRAM1 ASM 10 PROGRAM 2 ASM 15 PROGRAM 3 ASM 20 

PR0GRAM1 COM 8 PROGRAM 2 COM 12 PROG COM 18 

where for each file listed, the first column is the primary file 
name, the second is the extension file name and the third is the file 
size with the 'page 1 as its unit. 

Example 2. DIR *.* will display the names and size of all files on 
the current disk. 

Example 3. DIR B: *.ASM will display all the files with extension 
name *ASM* on the disk B. 

4.4.4 REName command 


FORMAT: REN ufn2=unf1 
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This command will change the file name which satisfies the 
unambiguous file reference ufn2 to the ufnl . It also allows the user 
to type a left-arrow instead of the equal sign in the command. An 
optional drive name is allowed to precede either ufnl or ufn2 ( or both 
). Thus there are four cases we will discuss below: 

Case 1. If both ufnl and ufn2 are not preceded by the drive name, 
the current disk is assumed to each file. 

For example, REM PROGRAM1.COM=PR0GRAM1,ASM will change the file 
name PR0GRAM1 .COM in current disk to PR0GRAM1 .ASM which will reside on 
the same current disk. 

Case 2. If ufnl is preceded by a drive name, the ufn2 is assumed 
to exist on the same disk as ufnl. 

For example, REN PROG.ASM=B: PROG 1 .COM will change the file name 

PROG.ASM on disk B to PR0G1 .COM and the file will still reside on the 

same disk with the new file name. 

Case 3. If ufn2 is preceded by a drive name, the ufnl is assumed 
to reside on the same disk as ufn2. 

For example, REM A: PROGRAM 1 .COM =PROG.COM will change the file name 

PR0GRAM1.COM to PROG.COM and the file will still reside on the same disk 
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under the new name. 

Case 4. If both ufnl and ufn2 are preceded by the drive names, the 
same name must be specified. Otherwise The CCP will ignore the drive 
name of ufnl. 

For example, REM A:PROG1.COM=B:PROG1.ASM will change the file 
PROG1.COM on disk A to PROG1.ASM which will still reside on disk A. 

If ufnl already exists on the specified disk, the error message 1 
FILE EXISTS 1 will appear and no change is made. If ufn2 does not 

exist on the disk, the message ' NO FILE * is printed at the console. 

4.4.5 SAVE command 

FORMAT: SAVE n ufn 

where n is a decimal integer for the number pf pages to be saved. 

This command will save n pages of data onto the disk from the user 

area starting with the location $0200 and under the file name ufn. If 

the disk name is omitted in ufn, the current disk is assumed. 

Following are examples which illustrate the use of this command: 

SAVE 5 PROG.COM saves information from memory location $0200 through 
$06FF to the current disk under the name PROG.COM. 
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SAVE 20 B: PROGRAM1.ASM saves imformation from memory location $0200 
through $15FF to disk B under the name PROGRAM 1 .ASM. 

4.4.6 TYPE command 

FORMAT: TYPE ufn 

This command will display an ASCII source file named by ufn at the 
console. If the disk name is omitted in ufn, the current disk is 
assumed. Note: only ASCII file should be displayed. Typing the file 
other than this form will give unpredictable results. 

Valid TYPE commands are: 

TYPE PROG.ASM will type the ASCII file PROG.ASM in the current disk 
at the console. 

TYPE B:PROGRAM1.ASM will type the ASCII file PROGRAM1.ASM in the disk 
B at the console. 

4. 4. 7 USER command 

FORMAT: USER n 

where n is the user code to be changed and could have a decimal 
integer value in the range 0 to 15. 
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A user code is used to protect the user's file from unauthorized 
access • 

Upon cold boot, the user code is automatically set to 0 # But the 
user is allowed to change it to his own code by typing this command, 

4.5 Transient commands 

Transient commands are names of programs residing on the disk in 
executable form. Normally these fall into two catagories: utilities 
and user developed programs. They will be loaded into the user area 
and executed when needed. We have not built up these commands yet 
except for DSKUTY. Consult chapter 8 to see how to install them into 


this system when needed 
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CHAPTER 5 

Basic Disk Operating System (BDOS) 

BDOS is a collection of 35 system functions which manage and access 
disk files dynamically and do all peripheral device I/O by calling 
BIOS, It gives the assembly programmer flexibility and convenience by 
allowing a simple call to these functions. In the fllowing sections, 
we will provide details for them. 

5,1 File Control Block (FCB) 

Before discussing the 35 system functions, we introduce the FCB ( File 
Control Block) concept which will be frequently met when dealing with 
disk I/O operation. The FCB and file directory are both required when 
creating, opening, reading, writing, closing, or deleting files. If a 
file is created or opened, information from the directiory is placed 
into the FCB; if a file is closed or deleted, information from the FCB 
is placed into the directory; if reading or writing occurs, information 
flows back and forth between the FCB and the directory. 

The structure of FCB is almost the same as that of file directory 
except in 'dr 1 , ’cr 1 1 r0' and 1 rl*. The following is the diagram of 
the FCB stucture and the listing of all the fields in the FCB and their 


usage 
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byte 

0 

1 - 8 

9-11 

12 13 

14 

15 


dr : 

fn : 

tn : 

ex : si : 

s2 : 

rc : 



byte 

16 - 31 




: 


dO 

d15 



: 


byte 32 

33 

34 

: cr 

r0 

rl : 


figure 4.1 FCB stucture 


where: 

1. dr ( byte 0 ) : Disk No, involved 

0 — current drive 

1 — drive A 

2 — drive B 

2. fn ( byte 1 - 8 ) : file name. This contains the file name with 

byte 1 containing the first character. If less than 8 characters are 

needed, the rest will be filled with blanks ( $20 ). 

3. tn ( byte 9 -11 ) : file type. This contains the file type with 

byte 9 containing the first character. If less than 3 characters are 

needed, the remaining bytes will be filled with blanks. 

4. ex ( byte 12 ) : file extent. This holds the file directory 
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extent number( see section 3.2.2 for definition ). 


5. si ( byte 13 ) : is for future use, 


6, s2 ( byte 14 ) : is for future use, 


7. rc ( byte 15 ) : number of records within this extent. 


8. dO - dl 5 ( byte 16 - 33 ) : file locatin area. ( see section 

3,2.2 for details ). 


9. cr ( byte 32 ) : This contains the current record No. available 
for access in a sequenial file. It must be set to 0 by the user before 
reading/writing from/to the beginging of a sequential file. 

10. rO and rl ( byte 33 - 34 ) : contain the random record No. with 
low byte in rO and high byte in rl when the random file access is 
needed• 

5.2 Calling System Functions 

In order to call system function, the user needs to do the following 
things: 

1. The system function No. must be placed into register X. 
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2. Parameters which the function requires must be placed into 
registers Y and A with high byte in Y and low byte in A. 

3. Call location 5 by using *JSR 5*. 

The following is an example of opening a file with it's name and type 
in the default FCB. 


FLCNBK 

= $EE01 

; $EE01 is 

the start address of 

default FCB 

BDOS 

= $0005 

; $0005 is 

system function call 

entry 

LDX 

#$16 

; $16 is the function No. for open file 

LDY 

#FLCNBK/256 

; high byte 

of the default FCB 

to Y 

IDA 

tFLCNBK 

; low byte 

of the default FCB 

to A 

JSR 

BDOS 

; call the 

system 



There is a branch table containing the start addresses of the 35 
system functions in memory from $DBC3 to $DC08 within the BDOS. There 
is also a system function selecting routine in which each system call 
is checked, processed and then branched to as follows: 

1# Examine the function number to see if it is legal or not, that 
is, if it is in the range 0 - 34. If it is illegal, an error will be 
displayed at the console. 

2. Multiply the legal function number by 2 to get the offset and add 
it to the starting address of the branch table mentioned above to get 
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the address of the corresponding function routine. 

3, Branch to the routine by using JMP ( adr ) , where adr is an 
address of the location in which the corresponding function address is 

held. 

Thus the BDOS can easily handle each system calls and execute them. 


5.3 System functions 


. The function names along with their numbers in OUP/M are listed 
below: 


0 System reset 19 Select disk 


1 Console input 20 Create file 


2 Console output 


21 Delete file 


3 List output 


4 Direct console output 


5 Buffer output 


6 Read console buffer 


7 Get I/O byte 


8 Set I/O byte 


9 Get input console status 


10 Reset disk system 


11 Get log-in vector 


12 Get current disk number 


13 Get map address 


14 Set write potection 


15 Get read only vector 


22 Open file 


23 Close file 


24 Read record sequentially 


25 Write record sequentially 


26 Read record randomly 


27 Write record randomly 


28 Search for first 


29 Search for next 


30 Rename file 


31 Set file attributs 


32 Compute file size 


33 Set random record 


34 Sent I/O buffer to disk 


46 


16 Get parameter table adr* 


17 Set/get usercode 


18 Set DMA address 


• The function names along with 
those user experienced with CP/M to 


0 System reset 


1 Console input 


2 Console output 


3 reader input 


4 Punch output 


5 List output 


6 Direct console output 


7 Get I/O byte 


their number in CP/M are listed, for 
make the comparision, as follows: 

19 Delete file 

20 Read sequential 

21 Wrtie sequential 

22 make file 

23 Rename file 

24 Return login vector 

25 Return currene disk 

26 Set DMA address 



8 Set I/O byte 


9 Print string 


10 Read console buffer 


11 Get console status 


12 Return version number 


13 Reset disk system 


14 Select disk 


15 Open file 


16 Close file 


17 Search for first 


18 Search for next 


27 Get addr ( alloc ) 


28 Write protect disk 


29 Get R/O vector 


30 Set file attributes 


31 Get addr( disk parms 


32 Set/get user code 


33 Read random 


34 Write random 


35 Compute file size 


36 Set raddom record 


Details of the OUP/M system functions: 
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*************** **************************************** 

* * 

* FUNCTION 0 : SYSTEM RESET * 

* * 

******************************************************* 

* * 

* Entry parameters : * 

* Register X : $00 * 

* * 

******************************************************* 

This function will reload the CCP, part of the BDOS and return 
control back to the operating system at the CCP level. The CCP then 
re-builds the bit map and check sum area for disk A and logs in it by 
setting the log-in vector. This function has the same effect as typing 
CTRL-C. 

As a benifit to the assembly user,it allows him to use an extra 2K or 

more memory (from $D000-$D988) in which CCP is located when an assembly 

program is running. At the end of the program, the user can call this 
function to restore the system. 


******************************************************* 
* * 

* FUNCTION 1 : CONSOLE INPUT * 

* * 

******************************************************* 
* * 

* Entry parameters : * 

* Register X : $01 


* Returned Value : 

* Register A : ASCII char 


******************************************************* 
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This function will read a character from the console to register A. 
It does not return to the calling program until it receives a character 
Most control characters will not be echoed except a few such as CTRL-J 
(LF), CTRL-M (CR), CTRL-H (BK) . The TAB character (CTRL-I) is expanded 
and the next character will be displayed at one of the following TAB 
positions: 1 ,9 ,17 ,25 , 33 , 41 ,49 ,57 ,65 or 73* CTRL-P will toggle 

the printer on or off. 

All non-control characters are echoed. 


******************************************************* 
* * 

* FUNCTION 2 : CONSOLE OUTPUT * 

* * 

******************************************************* 
* * 

* Entry Parameters : * 

* Register X : $02 * 

* Register A : ASCII character * 

* * 
******************************************************* 


This function will send the content of register A as an ASCII 
character to the console • It will wait until the console is ready. 
If the printer is on, the output will be sent to both console and 
printer. CTRL-P toggles the printer on or off. The TAB character is 
expanded as mentioned in function No. 1. 
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******************************************************* 
* * 

* FUNCTION 3 : LIST OUTPUT * 

* * 

******************************************************* 
* * 

* Entry Parameters : * 

* Register X : $03 * 

* Register A : ASCII char, * 

* * 

******************************************************* 


This function will sent the content of register A as an ASCII 
character only to the logical listing device, usually this is the 
printer. 


******************************************************* 
* * 

* FUNCTION 4 : DIRECT CONSOLE I/O * 

* * 
******************************************************* 


$04 

$FF(input) or Char(output) 


* Entry Parameters 

* Register X 

* Register A 

* 

* Return value : 

* register A : 

* * 

******************************************************* 


Char or Status 


* 

* 

* 

* 

* 

* 


This function will read a character from console to register A, if 
previous content of register A is $FF. Otherwise, it will sent the 
content of register A as an ASCII character to the console. In both 
case, control characters are treated as any other character. This is 
an unadorned console I/O function, unlike function No.1, 2, and 3. 




51 


******************************************************* 


* FUNCTION 5 : BUFFER OUTPUT 


******************************************************* 


* Entry Parameter 

* Register X 

* Register Y,A 


$05 

Buffer address 


******************************************************* 


This function will sent the character stored in an output buffer,whose 
starting address is indicated by the register Y and A, with Y holding 
high byte and A lower byte, until a '$' sign is encountered. TAB 
characters will be expanded. This function responds to start/stop 
scroll control ( CTRL-S/CTRL-Q ). CTRL-S halts output until CTRL-Q or 
any key is depressed. CTRL- P toggles the printer on or off, whether 
it is entered from the keyboard or is imbedded in the output buffer. 




* FUNCTION 6 : READ CONSOLE BUFFER 


******************************************************* 


* Entry parameters 

* Registre X 

* Register Y,A 


$06 

Buffer address 


* Returned value : 

* Console input in the buffer 


******************************************************* 
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This function will read anf edit a line from the console and put into 
a buffer addressed by registers Y and A. This function terminates 
either when a 'CR 1 is entered or the buffer is full. 

The input buffer has the following form: 


+0 +1 +2 +3 +4+5 +6 +7 +8 . +n 

mx nc cl c2 c3 c4 c5 c6 c7 . .. cn~1 


where ’mx 1 is the maximum number of characters the buffer can hold. 
This value must be specified before the function is called. 1 nc 1 is 
the number of the characters which the buffer contains after returning 
from this function. The remaining bytes ( cl - cn-1 ) hold the input 
characters • 

This function allows the following control characters for line 
editing: 

RUB/DEL removes and echoes the last character • 

CTRL-C warm boot if itis the first characetr entered, otherwise 
CTRL-C remains in the buffer. 

CTRL-E causes physical end of a line. 


CTRL-H backspaces one character position 
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CTRL-J line feed 


CTRL-M carriage return 


CTRL-R retype the current line on the next line* 


CTRL-X return to the beginning of the current line* 


* FUNCTION 7 : GET I/O BYTE 

* 


******************************************************* 

* * 

* 
* 

******************************************************* 
* * 

* Entry Parameters : * 

* Register X : $07 


* 
* 
* 
* 

* * 
******************************************************* 


* Returned value : 

* Register A : I/O byte value 


This function will return the I/O byte in register A. For the 
definition of I/O byte ,see the function No.8. 


******************************************************* 
* * 

* FUNCTION 8 : SET I/O BYTE * 

* * 
******************************************************* 


* 



* 

* 

Entry Parameters 


* 

* 

Register X 

: $08 

* 

* 

Register A 

: I/O byte value 

* 


* * 


******************************************************* 
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This function allows user program to redirect the I/O by setting the 
I/O byte. 

The I/O byte is located at $0003 and it’s format is as follows: 


BIT 7,6 5,4 3,2 1,0 

DEVICE LIST PUNCH READER CONSOLE 


where 

1. For the logical 

console (bit 1,0) 


BIT PATTERN 

ACTUAL DEVICE 


00 

console 


01 

serial communication 

device 

10 

console 


11 

user defined device 


2. For the logical 

listing device (bit 7,6) 


BIT PATTERN 

ACTUAL DEVICE 


00 

console 


01 

serial communication 

device 


10 


printer 
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11 console 

3. for logic reader (bit 3,2) and punch (bit 5,4) 

This system does not make any provisions for the logical 
reader and punch. It is available for future expansion of the system. 


* * 

* FUNCTION 9 : GET INPUT CONSOLE STATUS * 

* * 


* Entry Parameters : 

* Register X : $09 

* 

* Returned Value : 

* Register A : Console status 

* * 

******************************************************** 


This function will test whether a character is ready for input. Upon 


return. 

if 

the 

value in 

register A 

is 

$FF, the console is ready 

for 

input. 

If 

is 

$00, it is 

not. This 

is 

equivlent to testing if a 

key 


has been pressed 
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* * 

* FUNCTION 10 : RESET DISK SYSTEM * 

* * 


* * 

* Entry Parameters : * 

* Register X : $0A * 

* * 


******************************************************** 


This function allowes the user to reset the disk system under program 
control. It places all disks into the read/write state, logs in disk A 
and sets the DMA to the default I/O buffer. 


It may be used to change the disk medium without rebooting the 
system. 


******************************************************* 
* * 

* FUNCTION 11 : GET LOG-IN VECTOR * 

* * 

******************************************************* 
* * 


* Entry Parameters : 

* Register X : $0B 

* 

* Returned Value : 

* Register A : Log-in Vector 


* * 
******************************************************* 


This function will return the log-in vector located at $DBC2 in 
register A. Bit 0 corresponds to drive A and bit 1 to drive B. A *0* 
bit means the drive is not on-line, while a 1 1 ' bit means the drive is 
actively on-line and the bit map for the disk in the drive has been 
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built. 


********************************************************* 

* * 

* FUNCTION 12 : GET CURRENT DISK NUMBER * 

* * 

********************************************************* 
* * 

* Entry Parameters : * 

* Register X : $0C * 

* * 

* Returned Value : * 

* Register A : current drive number * 

* * 
********************************************************* 


This function will return the current selected drive number in 
register A, *0* indicates drive A, while 1 1* indicates drive B. 


******************************************************** 
* * 

* FUNCTION 13 : GET MAP ADDRESS FOR CURRENT DISK * 

* * 

******************************************************** 
* * 


* Entry Parameters : 

* Register X : $0D 

* 

* Returned Value : 

* Register Y,A: map address of current disk 


******************************************************** 


A bit map area is maintained in memory for each on-line disk. 
Various system utilites use the information provided by this area to 
determine the available storage on a disk. The base address of the bit 
map in the current active disk is returned in registers Y and A, with Y 
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holding the high byte and A the low byte. 


******************************************************** 
* * 

* FUNCTION 14 : SET WRITE PROTECTION FOR * 

* CURRENT DISK DRIVE * 

* * 

******************************************************** 

* * 

* Entry Parameters : * 

* Register X : $0E * 

* * 

******************************************************** 


There is a read - only vector located at $DBC1. Bit 0 corresponds to 
disk A, while bit 1 to disk B, This function sets a * 1 1 into the 
corresponding bit for current active disk. Thus the current disk can be 
temporarily write protected. 


******************************************************** 
* * 

* FUNCTION 15 : GET READ ONLY VECTOR * 

* * 

******************************************************** 
* * 

* Entry Parameters : * 

* Register X : $0F * 

* * 

* Returned Value : * 

* Register A : read only vector * 

* * 

******************************************************** 


This function returns the read only vector (see function 14 ) in 


register A 
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******************************************************** 


* * 

* FUNCTION 16 : GET PARAMETER TABLE ADDRESS OF * 

* CURRENT DISK * 

* * 

******************************************************** 
* * 

* Entry parameters : * 

* Register X : $10 * 

* * 

* Returned Value : * 

* Register A : Parameter table address * 

* * 
******************************************************** 


This function will return the BIOS resident disk parameter block 
address in register A. This address can be used for either of two 
purposes. First, the disk parameter values can be extracted for 
display and computational Thus the c or user can dynamically change the 
values as required. 


********************************************************* 
* * 

* FUNCTION 17 : SET/GET USERCODE * 

* * 

********************************************************* 
* * 


* 

Entry Parameters 




* 

* 

Register X 

: $11 



* 

* 

* 

Register A 

: $FF 

(get) 

or user code (set) 

* 

* 

* 

Returned value : 




* 

* 

Register A : 

User 

code 

(get) 

* 


* * 
********************************************************* 


This function will get the user code from location $DBC0, if register 
A is $FF• Otherwise it will set the user code equal to the value in 


register A 
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* * 

* FUNCTION 18 : SET DMA ADDRESS * 

* * 


* 



* 

* 

Entry Parameters : 


* 

* 

Register X : 

$12 

* 

* 

Register Y,A : 

DMA address 

* 

* 



* 


******************************************************** 


DMA is a logical name of the I/O buffer which holds the data to be 
sent to or obtained coming from the disk through the disk I/O buffer. 
Upon cold boot, warm boot or disk system reset, the address of DMA is 
set to default I/O buffer located at $E965 to EB64. This function 
,however,can change it to wherever the data record resides , or is 
going to reside. 


In this version, the length of the DMA is 128 bytes which is the 
length of a standard record. Provisions have been made for a DMA 
length of 512 bytes in case block I/O functions are added. 


******************************************************** 
* * 

* FUNCTION 19 : SELECT DISK * 

* * 
******************************************************** 


* 



* 

* 

Entry Parameters 


* 

* 

Register X 

: $13 

* 

* 

Register A 

: Disk No. desired 

* 


* * 


******************************************************** 
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This function will select the disk drive named in Register A as the 
default (current) disk for subsequent file operation (with 0 for drive 
A and 1 for drive B ) . It will also build up a corresponding map for 
this drive and log it in. 

Once the default disk is selected, a *0* for the drive code (dr) in 
the FCB will automatically reference to this disk in subsequent disk 
operation. The drive code of 1 or 2 will refer directly to drive A or 

B. 

Changing disk in this drive without typing CTRL-C while it is on-line 
will automatically change it to read/only status and an error will 
occure • 


******************************************************* 
* * 

* FUNCTION 20 : CREATE FILE * 

* * 

******************************************************* 


* 



* 

* 

Entry Parameters : 


* 

* 

Register X : $14 


* 

* 

Register Y,A : FCB 

address 

* 

* 



* 

* 

Returned value : 


* 

* 

Register A : $FF,If 

directoy overflow 

* 

* 

$00 — 

$6F, if success 

* 

* 



* 


******************************************************* 


This function will create directory enrty for the named file in the 
FCB in the disk directoy area. Before calling it , the user must fill 
the file name ,type and the desired disk drive No. in the FCB. 
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The user must assure that no duplicat file name exists in the 
derictory • Otherwise an error, *BDOS EROR No, $05 1 , will appear. 

Upon return, the value $FF in register A indicates no more space in 
directory area, while a directory code, from $00 to $6F, in register A 
indicates a successful operation. 

This function will also open the file for subsequent I/O. Thus an open 
operation after this is redudant. 

The following is an example that creates a file named XYZ.COM in disk 
drive A: 


BDOS=$0005 

*=$EE01 

FLCNBK .BYTE $01,'XYZ COM* 

;fill the file name,type and drive No. into 

; default FCB located in $EE01 

*=$0200 ;program starting at $0200 

LDX #$14 ;$14 is the function No. for make file 

LDY #FLCNBK/256 ; high FCB addr to Y 

LDA #FLCNBK ; low FCB addr to A 


JSR BDOS 


; call the open function 
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******************************************************* 

* 



* 

* 

FUNCTION 21 : 

DELETE FILE 

* 

* 



* 

******************************************************* 

* 



* 

* 

Entry Parameters 


* 

* 

Register X 

: $15 

* 

* 

Register Y, 

A : FCB address 

* 

* 



* 

* 

Returned Value 

: 

* 

* 

Register A 

: $FF,if file not found 

* 

* 


directory code,if success 

* 

* 



* 


******************************************************* 


This function deletes all file entries which match the file name in 
the FCB addressed by registers Y and A* The file name and type may be 
ambiguous references(i.e• a *?’ can be in these position),but the drive 
code cann't be ambiguous• 

Upon return, register A contains $FF,if the file cann't be found• 
Otherwise a value equal to directory code, from $00 to $6F, is in 
register A, 


******************************************************** 
* * 

* FUNCTION 22 : OPEN FILE * 

* * 


******************************************************** 
* * 

* Entry Parameters : * 

* Register X : $16 * 

* Register Y,A : FCB address * 

* * 


* Returned Value : * 

* Register A : $FF,if file not found * 

* directory code,if success * 

* * 


******************************************************** 
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This function will open an existing file, whose file name and type is 
given in the FCB addressed by registers Y and A, to allow a subsequent 
file read or write operation. Note, an existing file must not be 
accessed until a successful open operation is completed. 

When this function is called, the BDOS scans the the referenced disk 
directory for a match in position 'dr* through 1 s2* in the FCB, where 
an *?' mark matches any character in any of these position. Normally no 
question mark is included in 'dr 1 and fields 'ex’, 'si* and s2 should 
be set to 0 by the user before calling this function. 

If a directory entry is matched, the relevant directory information, 
such as 're* and 1 dO' through ’dn', are copied from the matched entry 
into the the corresponding positions in the FCB, allowing the 
subsequent read or write operation to retrieve and get sufficient file 
location infomation, and thus work properly. 

Upon return, register A will contain $FF,if the file is not found. 
Otherwise register A will contain a directory code, from $00 to $6F, 
indicating a successful operation. 

Note that the current record No. must be zeroed by the user program 
after calling this function, if a subsequent sequential read or write 
operation from the first record is needed. 


The following is an example of opening a file named TEST.ASM in drive 


B for a subsequent read. The FCB, instead of the default, resides in 


location starting at $2000. 


BDOS=$0005 

*=$2000 


FLCNBK .BYTE $02, 

1 TEST ASM 1 ,$00,$00,$00 

FLCNKK * = * +20 

;FCB is located at $2000-$2023 

*=$0200 

;program starts at $0200 

LDX 

#$16 

;$16 is the function No. for open 

LDY 

#FLCNBK/256 

; high FCB addr to Y 

LDA 

#FLCNBK 

; low byte addr to A 

JSR 

BDOS 

; call open function 

LDA 

#$00 

;set 1 cr* to 0 

STA 

FLCNBK+32 



******************************************************* 
* * 

* FUNCTION 23 : CLOSE FILE * 

* * 
******************************************************* 


* 

* 

* 

* 

* 

* 

* 

* 


Entry Parameters 
Register X 
Register Y,A 


$17 

FCB address 


Returned value : 

Register A : $FF file not found 

Directory code if success 


* 

* 

* 

* 

* 

* 

* 

* 


* * 
******************************************************* 


This function will store the modified FCB addressed by registers Y 



and A to the referenced disk directory. A file doesn’t need to be 
closed if only read operation took place. But if there is some write 
operation, it is necessary to close this file in order to get a 
corrected directory entry for it in the disk. Otherwise the data just 
written may be lost. 

Upon return, a value $FF in register A means the file was not found. 
Otherwise a directory code, from $00 through $6F, will be returned in 
register A indicating a successful operation. 


******************************************************** 
* * 

* FUNCTION 24 : READ RECORD SEQUENTIALLY * 

* * 

******************************************************** 
* * 


* 

Entry Parameters 



* 

* 

Register X : 

$18 


* 

* 

Register Y,A: 

FCB 

address 

* 

* 




* 

* 

Returned Value : 



* 

* 

Register A : 

$00 

success 

* 

* 


$01 

end of file 

* 

* 


$02 

record not in disk 

* 

* 




* 


******************************************************** 


This function will read the next 128 byte record from the file , 


whose 

FCB 

has 

been actived 

by an 

open operation 

and place 

it into 

memory 

at 

the 

current DMA 

address• 

The record 

is read 

from the 


position ’cr* of the current extent, and after reading, the ’cr’ field 
is incremented to the next record. If the ’cr* exceeds 64, the next 


extent is automatically opened and the ' cr ’ is set to 0 for the 
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subsequent read operation. 

Upon return, a value $00 in register A indicates a successful read. 
A value of $01 means end of the file. A value of $02 means the block, 
which should contain the record, does not exist possibly because the 
file was written via the random functions and this record was never 
created. 


The following is an example which will read a 10-record file named 
TEST.ASM from the current disk into the memory starting at location 
$4000, 


BDOS = $0005 

COUNT = $80 ;record counter 

DMAADS = $81 ;DMA address location 

BUFFER = $4000 ;start of the user buffer 

* = $0200 

FLCNBK .BYTE $00,*TEST ASM *,$00,$00,$00 
FLCNKK * = * + 20 
RDFLBF = * 

LDX #$16 ;open the file whose FOB is 

LDY #FLCBNK/256 ;addressed by Y and A 
LDA #FLCBNK 
JSR BDOS 
LDA #$00 

STA FLCBNK+32 ;set 1 cr' to 0 
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LDA 

#$0A 

/set count to 10 

to indicate 

STA 

COUNT 

/we will read 10 

records 

LDA 

#BUFFER 

/initialize DMA 


STA 

DMAADS 



LDA 

#BUFFER/256 



STA 

DMAADS+1 




R$FLBF = * 

LDX #$12 ;$12 is No. for set DMA 

LDA DMAADS 
LDY DMAADS + 1 
JSR BDOS 

LDX #$18 ;read current record to memory 

LDY #FLCNBK/256 /addressed by DMAADS 
LDA #FLCNBK 
JSR BDOS 

CLC ;increment DMA by 128 bytes 

LDA #$80 

ADC DMAADS 

BCC * + 4 

INC DMAADS + 1 

DEC COUNT /finished? 

BNE R$FLBF 
RTS 


if not continue 
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******************************************************** 


* 



* 

* 

FUNCTION 25 : 

WRITE RECORD SEQUENTIALLY 

* 

* 



* 

******************************************************** 

* 



* 

* 

Entry Parameters 

: 

* 

* 

Register X 

: $19 

* 

* 

Register Y, 

A : FCB address 

* 

* 



* 

* 

Returned Value 

: 

* 

* 

Register A 

: $00 success 

* 

* 


$01 directory overflow 

* 

* 


$02 disk overflow 

* 

* 



* 


******************************************************** 


This function will write the next 128 byte record from the memory at 
the current DMA address to the file whose FCB has been actived by an 
open or create file operation. The record is written in 1 cr* position 
of the current extent* After writing ,the *cr' field is incremented by 
one. If the 1 cr* exceeds 64, the next extent is automatically opened 
and the * cr 1 field is set to 0 for the subsequent write operation* 


Upon return, a value $00 in register A means a successful writing* 
Otherwise A being $01 indicates file directory overflow and $02 
indicates disk overflow* 
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******************************************************** 

* * 

* FUNCTION 26 : READ RECORD RANDOMLY * 

* * 

******************************************************** 
* * 

* Entry Parameters : * 

* Register X : $1A * 

* Register Y, A: FCB address * 

* * 

* Returned Value : * 

* Register A : $00 success * 

* $01 read unwritten record * 

* $03 cann't close current extent * 

* $04 read unwritten extent * 


******************************************************** 


This function is similar to the sequential file read function except 
the record being read is determined by the * rO * and *r1 f fields, 
instead of 1 cr 1 field, in the FCB actived by an open file function. 
The 1 r0* and 1 rl 1 byte pair is treated as a value with rO holding least 
significant and rl most significant part of the record No. to be read. 

In order to use this function for file access, the base extent 
(extent 0) must first be opened, the desired record No. must be put 
into the 1 rO 1 and 1 rl ' properly, and then this function may be called. 

During this operation, the ' x 1 and 'cr* are set according to the 
random record No. desired. Contrary to the sequential operation, upon 
return, the 1 cr 1 is not advanced and still points to the record just 
read. Thus a subsequent sequential file read or write operation will 
start from the current randomly accessed position, causing re-reading 
or re-writing of the last record. In order to avoid the duplication. 
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the user should advance the ’cr* by one, if the next sequential read or 
write operation is needed. 

Upon return, the value $00 in register A indicates a successful 
operation. Otherwise an unsuccessful operation has occured with the 
error code in the register A listed below: 

$01 reading unwritten record 

$03 cann't close the current extent 

$04 reading an unwritten extent 


******************************************************** 

* * 

* FUNCTION 27 : WRITE RECORD RANDOMLY * 

* * 
******************************************************** 


* 



* 

* 

Entry Parameters 


* 

* 

Register X 

: $ 1 B 

* 

* 

Register Y,A 

: FCB address 

* 

* 



* 

* 

Returned Value : 


* 

* 

Register A : 

$00 success 

* 

* 


$02 map overflow 

* 

* 


$03 cann*t close current extent 

* 

* 


$05 directory overflow 

* 

* 



* 


******************************************************** 


This function is similar to the read random function except that data 
is written to the disk from the current DMA address. The same remarks 
as in the * read record randomly* function apply, Care should be taken 
when a subsequent read or write operation is going to be performed. 
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Upon return, the value $00 in register A indicates a successful 
operation. Otherwise an unsuccessful operation has occured with error 
code in register A listed below: 

$02 disk overflow 

$03 cann't close current extent 

$05 directory overflow. 


* ******************************************************* 

* * 

* FUNCTION 28 : SEARCH FOR FIRST * 

* * 
******************************************************** 


* Entry Parameters 

* Register X 

* Register Y,A 


$1C 

FCB address 


* Returned value : 

* Register A : $FF file not found 

* 0, 1, 2 and 3 if success 

* 


* 

* 

* 

* 

* 

* 

* 

* 


******************************************************** 


This function scans the directory of the referenced disk for a match 
with the file given by the FCB addressed by the register Y and A. Upon 
return,the value $FF in the register A indicates that the desired file 
is not found. Otherwise 0,1,2,3 is returned indicating a successful 
operation. If the file is found, it's directory entry along with that 
of 3 other entries in the same directory record are copied into the 
DMA. The relative starting position is determined by (A) * 32 from the 
beginning address of the DMA, from which one can extract the desired 


directory information 
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An ASCII question mark ($3F) in any position from 1 f 1 1 to 'ex* 
matches the corresponding field of any directory entry on the 
referenced disk drive• 


This function specifically saves the FCB address for use by the 
function 1 search for next' (function No. 29). 


******************************************************** 
* * 


* 

FUNCTION 29 : 

SEARCH FOR NEXT 

* 

* 



* 

******************************************************** 

* 



* 

* 

Entry Parameters 

: 

* 

* 

Register X 

: $1D 

* 

* 



* 

* 

Returned Value : 


* 

* 

Register A : 

$FF File not found 

* 

* 


0, 1, 2 and 3 if success 

* 

* 



* 

******************************************************** 


This function is similar to 'search for first' except the directory 
scan continues from the the last matched entry (not include the present 
one) and it uses the FCB address saved by the previous ' search for 
first '( see funtion No.28 ). 


Similar to 'search for first*, the value $FF is returned when no 
further directory entry is found. 
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* * 


* 

* 

FUNCTION 30 : 

RENAME FILE 

* 

* 

******************************************************** 

* * 

* 

Entry Parameters 

: 

* 

* 

Register X 

: $1E 

* 

* 

* 

Register Y, 

A: FCB address 

* 

* 

* 

Returned Value 

: 

* 

* 

Register A 

: $FF File not found 

* 

* 


$80 duplicate file name exist 

* 

* 

* 


$00 - $6F success 

* 

* 


******************************************************** 


THis function uses the FCB addessed by the register Y and A to change 
all occurrence of the file named in the first 16 bytes to the file 
named in the second 16 bytes• The drive code at position 0 corresponds 
to the old file,while drive code for the new file at position 16 must 
be set to 0, 

Upon return, register A is set to the directory code, form $00 - $6F, 
to indicate a successful operation. Otherwise the value $FF in A 
indicates that the old file could not be found and the value $80 in A 
indicates the new file name is already in the directory and the 


renaming was not done 
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******************************************************** 

* * 

* FUNCTION 31 : SET FILE ATTRIBUTES * 

* * 

******************************************************** 
* * 

* Entry Parameters : * 

* Register X : $1F * 

* Register Y, A: FOB address * 

* * 

* Returned Value : * 

* Register A : $FF file not found * 

* $00 - $6F if success * 

* * 
******************************************************** 


This function allows the user program to set or reset some file 
attributes. In this version, only bit 7 of 'tl 1 is used. This bit is 
the R/W attribute with ' 1* meaning read only and '0* R/W. Bit 7 of 
other bytes from 1 fl ' to 1 f8* and ' t2 1 to * t3 1 may be used for 
attributes in future system modifications or by the user. 


The file name in the FCB must be unambiguous and the bit 7 of 1 tl* 
must set to the desired attribute. 


Upon return, the value $FF in register A indicates the file could not 
be found. Otherwise a directory code, from $00 - $6F, indicates a 
successful operation. 


The following is an example which sets the file TEST1.ASM in disk A to 


read/only 
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BDOS=$0005 

*=$0200 


FLCNBK .BYTE $01,'TEST1 ASM$00,$00,$00 
FLCNKK * = * + 20 

LDA #$80 ;set bit 7 of 'tl' to 1 

ORA FLCNBK+9 
STA FLCNBK+9 

LDX #$1F ;$1F is the function No. for 

/setting attributs 


LDY #FLCNBK/256 /high FCB address to Y 

LDA #FLCNBK ;low FCB address to A 

JSR BDOS /call set attributes function 


******************************************************* 
* * 

* FUNCTION 32 : COMPUTE FILE SIZE * 

* * 
******************************************************* 


* * 

* Entry Parameters : * 

* Register X : $20 * 

* Register Y,A : FCB address * 

* * 

* Returned Value : * 

* 1 rO'j'rl* contain file size * 

* * 


******************************************************* 


With an unambiguous file name in the FCB, this function will scan the 
referenced disk directory to find all the directory entries for this 
file and compute the total number of records belonging to it. Upon 
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return, the random record bytes rO and rl contain the *virtural* file 
size with it's high byte in rl and lower byte in rO. 

Data can be appended to the end of an existing file by simply calling 
this fuction to set the random record position to the end of the file, 
then performing a sequence of random write operations starting at the 
record position computed by this function* 

The virtural size of a file is equal to the physical size when the 
file is created by sequential writing operation. If the file is 
written in random mode and holes exists somewhere, the actual size may 
be smaller than the size indicated. 


******************************************************** 
* * 

* FUNCTION 33 : SET RANDOM RECORD * 

* * 
******************************************************** 


* Entry Parameters 

* Register X 

* Register Y,A 

* 

* Returned Value : 

* 

* 

* 

* 


$21 

FCB address 


random record No. with rO 
holding low byte and rl 
high byte 


* 

* 

* 

* 

* 

* 

* 

* 

* 


******************************************************** 


This function will automatically produce the random record position 
with rO containing it's low byte and rl containing high byte, for a 
file which has been read or written sequentially up to a particular 
point. The function can be used in two ways. 
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First, it is ofen needed to initially read and scan a sequential file 
to extract the position of various 'key* fields. As each key is 
encountered ,this function is called to caculate the random record 

position for the data corresponding to this key and the resulting 

record position is placed into a table with the key for later 
retrieval. After finishing scanning and tabularizing , one can move 

instantly to a particular key record by performing a random read using 
the corresponding random record No. which was saved in the table. 

A second use is to switch from a sequential file operation to a 
random one. This function can set the record No. after the last 
sequential read or write operation, thus the subsequent random 

operation can continue from the selected position in the file. 


******************************************************** 
* * 

* FUNCTION 34 : SEND I/O BUFFER BACK TO DISK * 

* * 

******************************************************** 
* * 

* Entry Parameters : * 

* Register X 2 $22 * 

* * 
******************************************************** 


This function will send the disk I/O buffer (one track long ) back to 
the current disk track indicated in $0044. 


This function is only used by the system. 
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CHAPTER 6 

PAGE ZERO USAGE 

Page zero has a special meaning for the 6502 microprocessor. It 
plays an important role in the 6502 assembly language programming. In 
this system, CCP, BDOS and BIOS use 128 bytes, from $00 - $7F, for 
their special purpose. Thus there are only another 128 bytes, from $80 
- $FF,, left for the user. In the following sections, we will discuss 

each page zero location as it is used by the system. 

6.1 Page zero usage for BDOS. 


1. 

START 

( $00 

- $02 

) 

: is a warm boot vector. 

2. 

IOBYTE 

( $03 

) 


: is an I/O device vector. 

3. 

BDSCLV 

( $05 

- $07 

) 

: is a BDOS calling vector 

4. 

CREG 

( $08 

) 


: Working storage for BDOS 

5. 

DEREG 

( $09 

- $0A 

) 

: The same as above. 

6. 

HLREG 

( $0B 

- $0C 

) 

: The same as above. 

7. 

HLREG1 

( $0D 

- $0E 

) 

: The same as above. 

8. 

FLAG 

( $0F 

) 


: 



Bit 3 

'1 ' 

for 

building up checksum area. 




•02. 

for 

checking. 



Bit 4 

'1 ' 

for 

R/W sector. 




'O' 

for 

R/W block. 



Bit 5 

'1 ' 

for 

adding map bit. 
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9. DIRBFA 


10. MAPBFA 


1 1 . CHKBFA 


12. RTNFLG 


1 3. RTNFLG 


14. RTNFLG 


1 5. DRERNB 


'0* for deleting map bit. 

Bit 6 1 1* for writing 

'0* for reading. 

Bit 7 1 1 1 for finishing DIR scaning. 

'O' for not yet. 

( $12 - $13 ) : contains the address of directory 

buffer for current active disk. 

( $14 - $15 ) : contains the address of bit map 

for current active disk. 

( $16 ~ $17 ) : contains the address of check 

sum area for current active disk. 

( $18 ) : is a flag to indicate whether 

BDOS should change the disk back to the current disk 
when exiting. 


+ 1 ( $18 ) : Usually is a flag to indicate 

if the current (BDOS) function processing is 
successful, or contains the low byte of the 
address when a return address is needed. 

+ 2 ( $1A ) : Contains the high byte of the 

address when a return address is needed. 

( $1C ) : is used as directory entry No. 

counter during the directory scan. When the scan is 
completed, i.e. a match has been found, the value of 
the counter is used to caculate the offset of the 
matched entry from the base address of the directory 


buffer 
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16. 

DREROF 

( 

$1D 

) 

*• 



above. 



17. 

TEMP 

( 

$ 1 F 

) 

: 

18. 

BLKNUB 

( 

$21 

) 

. 


contains the offset mentioned 

is a temporary storage, 
contains the relative block No* 


within the track. 

19. TRKNUB ( $22 ) : contains the desired track No. 

20. PRVDSK ( $24 ) : saves the current disk No. while 

doing a file operation on the other disk. 

21. CRTDRN ( $25 ) : saves the 1 dr * of the active FCB. 

when the BDOS completes file operation, the value is 
returned to the FCB. 

22. CMERCT ( $27 ) : contains the number of bytes in 

the FCB to be matched with the directory entry. 

23. DERDSK ( $29 ) : contains the desired disk number 

( 0: disk A, Is disk B ). 

24. RTNFG1 ( $2A ) : is an auxiliary return flag used in 

computing values for RTNFLG + 1. 

25. FLAG2 ( $2C ) : 


Bit 7 1 1 1 

* 0 * 

BIT 6 *1 1 

'O' 

Bit 5 ' 1 1 

'O' 

Bit 4 *1 1 


for sequential R/W. 
for random R/W. 
for read, 
for write, 
for R/W sector, 
for R/W block, 
for make new file. 


'O' 


for make new extent 
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BIT 3 *1 1 

* 0 * 

26. CRRCNB ( $2D ) 

the FCB. 

27. TLRCNB ( $2E ) 

the FCB. 

28. EXNTNB ( $2F ) 

the FCB. 
29., SECNUB ( $30 ) 


for no empty block left, 
for empty block found. 

: contains a copy of 'cr* in 

: contains a copy of 1 rc 1 in 

: contains a copy of 'ex’ in 

: contains sector No. within a 


track. 


30. BKRBLK ( $31 - $32 ) : contains the block No. while BOOS 

is performing a backward scan of the bit map for an 
empty block. 


31. ADVBLK ( $33 - $34 ) : contains the block No. while BDOS 

is performing a forward scan of the bit map for an 
empty block. 


32. BKOSFG ( $35 ) : is a flag to indicate whether the 

current file location byte in the active FCB is odd 
or even. 


33. BLKOFS ( $36 ) : is an offset of the current 

location byte from the beginning of the active FCB. 

34. IOBFFG ( $39 ) : is a flag to indicate whether the 

I/O buffer has been written into. 

35. CRTDKS ( $3a ) : contains the current disk No. 

36. SCNPTS ( $3B ) : is a pointer to the starting 

column of the current input line used in console 
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I/O editing. 

37. CHRNUB ( $3E) : is a character No. counter for 

the console input buffer. 

6.2 Page zero usage for BIOS 


39. BLKNB1 ( $42 ) 

within a track. 

40. SECNB1 ( $43 ) 

within a block. 
41 . TKNDER ( $44 ) 
track No. 


contains the relative block No. 


contains the relative sector No. 


contains the current desired 


42. TRKDRC ( $45 ) 

43. DMAREG ( $46 - $47 

the DMA. 

44. TRKCRN ( $48 ) 


: contains the desired track No. 

: contains the starting address of 

: contains the current head 


position. 

45. TKTMAX ( $49 ) : contains the max. number of times 

for attempting to match the track number in case of 
error. 


46. ERORFG ( $4A ) 

47. IOBUFA ( $4C - $4D ) 

48. PAGNUB ( $4E ) 

disk I/O. 

49. ERTMAX ( $4F ) 


is a error flag. 

contains the I/O buffer address, 
is a page No. counter used in 

contains the max. number of times 


for attempting read/write disk in case of error 
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50. CBADRV ( $55 - $56 ) : contains current FCB address for 

Search next 1 function. 


6.3 Page zero usage for CCP 


51. 

RWQ 

( $60 - 

$61 

) 

: 

is a 

l working storage for 

CCP. 

52. 

RNW 

( $62 - 

$63 

) 

: 

The 

same 

as above. 


53. 

RWK 

( $6B - 

$6C 

) 

: 

The 

same 

as above. 


54. 

RBC 

( $67 - 

$68 

) 

: 

The 

same 

as above. 


55. 

RHL 

( $69 - 

$6A 

) 

* 

The 

same 

as above. 


56. 

RDE 

( $6D - 

$6E 

) 

: 

The 

same 

as above. 


Page 

zero 

locations 

$6F 

through 

$7F 

are reserved 

for 

expansions of 

the system. 









6.4 Page zero usage for the user 

Memory locations from $80 throgh $FF are available to the user. If 
all of page zero is needed by the user, it is the user's responsibility 
to save page zero in another area before calling the system and restore 
it back when exiting. 


I 
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CHAPTER 7 


ERROR MESSAGES 


There are three types of errors which may occor while a program is 
running or a command is being executed: BIOS errors, BDOS errors and 
CCP errors. When errors of the first two types are recognized by the 
system, an error message number is displayed at the console ( see below 
). CCP errors are spelled out at the console. 

BIOS errors are fatal errors, most of them relating to the disk 
I/O. When an error of this type occurs, the user needs to type CTRL-C 
to reboot the system and proceed on. If the error occurs repeatedly 
there may be a problem with the disk itself. 

BDOS errors usually are not fatal and are likely due to programming 
mistakes. Correcting the program should clear things up. 

CCP errors occurs when the user enters commands. Retyping the 
command correctly should correct such errors. 

7.1 BIOS errors 


ERROR No 


Meaning 


$20 index hole found, while writing the disk 


$21 index hole found, while reading the disk 


$22 drive is not ready 


$23 track No, does not match 


$24 disk is write protected 


$25 the I/O devices is not defined 


$40 data R/W error 


$80 parity error 


7.2 BDOS errors 


Error No. 


Meaning 


$02 illegel disk No. 


$03 illegel function No, 


$04 


disk is write protected 
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$05 duplicate file name 


$06 check sum error 


$07 file is write protected 


$08 file is not open 


7.3 CCP errors 


. 1 NO FILE* means the desired file can not be found. 


• *NO SPACE* means directory or disk space overflow. 


. * FILE EXISTS* means a file already exists by the new name. 


means a syntax error in the command. The *?* preceeds the 


portion of the command in error 
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CHAPTER 8 


SYSTEM UTILITY DEVELOPMENT 


This system is designed to support a set of utilities such as DSKUTY, 
STAT, ASM, LOAD, DDT, PIP, ED, SUBMIT, DUMP etc. At present DSKUTY is 
the only one completely developed. DSKUTY supports disk housekeeping 
functions, such as disk format, disk copy, specified disk track R/W. 
The other utilities are to be developed in the future. 

Once an assembler and editor become available, all other utilities 
can be installed using OUP/M operating system. Meanwhile, we present a 
method for installing utilities in the the OSI work enviroment under 
which OUP/M was developed. This enviroment consists of a 6502-based 
microcomputer, a dual disk drive, a console, a printer and the OSI 
operating system. 

Step 1. Design the source program with an origin at $0200. 

Step 2. Use the OSI editor to enter the source program. 

Step 3. Use the OSI assembler with an offset to assemble the 
source into a safe location in memory. 'Safe* depends on the length of 


the object code 
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Step 4. Save the object code on the OSI system disk. 

Step 5. Load the object code from the disk into memory starting 
at $0200, Note that the object code must fit between $0200 and $2200, 

Step 6, Boot OUP/M and use the SAVE command to store the object 
code on the OUP/M system disk* 


The following is an annotated example to illustrate these steps: 


console display 

H/D/M ? D 

A* AS 

OSI 6502 ASSEMBLER 
COPYRIGHT 1976 BY OSI 

. I 

INIZ ? Y 

.010 ; say hello at the console 

. 020 * = $0200 
. 030 JMP MAIN 


comments 

press shift-D to boot OSI 
system. 

enter AS to load the editor 
and assembler. 


type I and respond Y to 
initialize the workspace, 
enter the source program 
under the OSI editor, 
set oringin at $0200, 


040 BUFF .BYTE 1 HELLO$ * 


. 050 
. 060 
. 070 
. 080 
. 090 
. 100 
. 110 
. 120 
. A 

1 0 ; say 
20 0200 
30 0203 
40 0204 
30 0205 
30 0206 
30 0207 
40 0005= 
50 0206= 
60 0208 
70 020A 
80 020C 
90 020E 
100 0211 
110 

. MD000 


BDOS = $05 
MAIN = * 

LDX #$09 
LDA #BUFF 
LDY #BUFF/256 
JSR BDOS 

RTS 

.END 

get listing of the program 

hello at the console 
JMP MAIN 

BUFF .BYTE 1 HELLO$ 1 
45 
4C 
4C 
24 

= BDOS=$05 

= MAIN = * 

A209 LDX #$09 

A903 LDA #BUFF 

A002 LDY #BUFF/256 

200500 JSR BDOS 

60 RTS 

.END 


set memory offset. 



. A3 

. EXIT 

. A* SAVE 75,1=D200/1 

. A* CALL 0200=75,1 

H/D/M ? D 


OUP/M OPERATING SYSTEM 
DIR REM ERA SAVE TYPE USER 
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store object code at 
locations staring at $D200. 
exit to operating system, 
save object code of 1 page 
onto track No, 75, 
load object code to 
locations starting at $0200, 

push 'reset' and press 
shift-D to boot OUP/M 
operating system. 


>A SAVE 01 HELLO 


save the object code under 
the file name 'HELLO'• 


92 


CHAPTER 9 

DISK READ / WRITE UTILITY 

A disk read/write utility is the first utility installed in the 
system. It will do disk housekeeping such as disk copy, disk format 
and a specified track read/write. 

To invoke this utility, the user should type 'DSKUTY 1 followed by a 
carriage return in respond to the CCP prompt , A>* or f B>'. 

After the user presses 1 cr*, a main menu will be dispalyed on the 
screen as follows: 

-- DISKETTE UTILITY — 

SELECT ONE 

1) COPY ALL TRACKS 

2) COPY OPTION TRACK(S) 

3) INITIALIZE OPTION TRACK(S) ( TRACK 0 IS NOT ALLOWED ) 


4) READ OPTION TRACK(S) 
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5) WRITE OPTION TRACK(S) 

6) EXIT TO OUP/M 

— TRACK NUMBER: A 2-DIGIT DECIMAL VALUE 

— ADDRESS & VECTOR: A 4-DIGIT HEXIDECIMAL VALUE 

— PAGE NUMBER: A SINGLE HEXIDECIMAL 

After entering a digit, futher prompts will be displayed to obtain 
additional information from the user. 

With these options listed above, back-up copies may be produced and a 
modified object code of the system itself may be saved or installed on 
the track No.O through No. 2. 

This utility is a limited substitute for the CP/M system generation 
utility. The user can modify the source program and reassemble it or 
patch the object code to get a new version of OUP/M. 


Appendix B 


Listing of Source Programs 


B1 : Listing of COLDLD 


B2 : 

Listing 

of 

CCP 

B3 : 

Listing 

of 

BDOS 

B4 : 

Listing 

of 

BIOS 

B5 : 

Listing 

of 

DSKUTY 


Appendix B1 : Listing of COLDLD 
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5OUP/M COLDLD 

WRITTEN BY SHAO>JIAN-XIONG 

20 

i ON JULY 1932. 


30 

*=$2200 


40 

JHP CDBTLD 


50 

BI0SA1 .WORD 

$2280 

60 

BI0SA2 .WORD 

$DEG0 

70 

BIOSF'6 .BYTE 

$0C 

80 

MVRE61=$53 


VO 

HVREG2=$55 


100 

I0BFFG=$39 


110 

TKNDER=$44 


120 

TRKCRN=$48 


130 

DVACIA=$C010 


140 

FRYCST=$E41B 


150 

WB0QT=$E477 


160 

BQ0T=$E42F 


170 

SFTSWT=$F701 


180 

FRYCCT .BYTE 

*31»$31»$31»$31»$31 

190 

.BYTE 

$62 f $62? $62»$62 

200 

.BYTE 

$A0 f $AG f $A0 f $A0 

210 

.BYTE 

$AO»$AO»$AO»$AO 

220 ; 



230 

CDBTLD=* 

?COLD BOOT LOADER 

240 i 



250 

CL Ti 

jHOVE BIOS AND PART OF 

260 

LDA BIOSA1 

iBDOS TO ITS REGULAR POSITION 

270 

STA MVRE61 


280 

LDA BIOSA1 

+ 1 

290 

STA HVRE61E1 

300 

LDA BI0SA2 


310 

STA MVRE62 


320 

LDA BIOSA2 

El 

330 

STA MVREG2 

+ 1 

340 

LDX BIOSPG 


350 

LDY *$00 


360 

C$BTLD=* 


370 

LDA (MVREGl)»Y 

380 

STA (MVREG 

2) >Y 

390 

I NY 


400 

BNE C$BTLD 


410 

INC MVREG1+1 

420 

INC HVREG2 

+ 1 

430 

DEX 


440 

BNE C$BTLD 


450 

LDA *$34 

} ADJUST FREQUENCY 

460 

STA SFTSUT 


470 

LDY *$00 


480 

LDA *$03 


490 

STA DVACIA 


500 

LDA *$38 


510 

STA DVACIA 


520 

STA DVACIA+1 


530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 


F'HA 
PL A 


PH A 


PLA 

PHA 

PLA 

STX DVACIA+1 


AD$TFY=* 

LDA DUACIA 

BMI A$JTFY 

INY 

BNE AD$TFY 

A$JTFY=* 


LDA 

STA 

JSR 

LDA 

STA 

STA 

STA 

LDA 

TAX 

TXS 

PHA 

JHP 


FRYCCT »Y 
FRYCST 

BOOT UNITIALIZE ALL INTERFACE 

*$00 
I0BFF6 

TKNDER JHARK HEAD POSITION TO 0 
TRKCRN 

*$FF »SET COLD BOOT FLAG 


WBOOT 5WBOOT CCP AND REST OF BDOS 


Appendix B2 : Listing of CCP 


780 

50UF7M CCF‘ WRITTEN BY LIO,QI~WEN 

790 

5 ON AUG, 1982 

800 

#=$DQOO 

810 

JHP MAIN 

820 

5 6502 CP/M CCP 

830 

5 * t % % * % % % t % % % % % 11 % 1111 % % t % % % % t % % % t % t % % % t % 

840 

STACKB=$FF 

850 

IBUBCC=$EE80 5HAX CHAR ADDRESS 

880 

IBUBC=$EE81 5BUFF COUNTER 

870 

IBUFB=$EE82 5FIRST CHAR IN BUFF 

880 

IBUFBA=$EF02 

890 

IBUFBB=$EF04 

900 IBUFC 

► WORD IBUBC 

910 IBUFF 

.WORD IBUFB 

920 

IBUFPA .WORD IBUFB iPTRiINIT IBUFB 

930 IBUFF'E 

i .WORD IBUFBB 

940 

FCBB=$EEQ1 

950 

FCBBB=FCBB+1 

960 

FCBBC=FCBBF$10 

970 

FC8BD=FCBB+$20 

980 

RET0AL=FCBB+$23 

990 FCBP 

.WORD F'CBB 

1000 FCBF'B 

.WORD FCBBB 

1010 FCBF'C 

.WORD FCBBC 

1020 FCBBP 

.WORD FCBBD 

1030 

BSKNUM=FCBB+$42 5 POINTES THE NUMBER 

1040 

WRKPLA=FCBB+$43 5WORK ELEMENT 

1050 

URKPLB=FCBB+$44 

1060 

WRKPLC=FCBB+$45 

1070 

URKPLD=FCBB+$46 

1080 WRKF'PB 

.WORD URKPLB 

1090 

RBC=$0067 

1100 

RHL=$0069 

1110 

RBE=$006D 5REPLACE Z80 DEiHLiBC 

1120 

RWK=$006B 

1130 

RWQ=$0060 

1140 

RNW=$Q062 

1150 

DMAD=$E965 

1160 SUBTBL 

.WORD SUBPGO 

1170 

STRTD=$0200 

1180 SUBPGO 

.WORD $2710 510,000 

1190 

.WORD $03E8 51,000 

1200 

.WORD $0064 5100 

1210 

.WORD $OOOA 510 

1220 MSGAD1 

.WORD MSGVER 

1230 CMDTAB 

.BYTE 'DIR ERA TYPESAVEREN USER' 

1240 5 


1250; 


1260 TABABB 

.WORD CMDTAB 

1270 ABRTAB 

.WORD PDIR,PERA,PTYPE,PSAVE,PREN 

1280 

.WORD F’USER,PTRANS 

1290 TBLAB2 

.WORD ADRTAB 



1300 RDERRA .WORD RDERR 
1310 NQFERA .WORD NOFERR 
1320 MSGAD3 .WORD MSGADI 
1330 BDOS=$D?3F 

1340 KSGAD5 .WORD MSGAD4 
1350 HSGAD7 .WORD MSGAD6 
1360 MSGDD9 .WORD MSGDD8 
1370 H3GBA2 .WORD MSGBA1 

1380 }m****##*#** t t * t * % * % % * % t * t % t % % 11 % 11 % % % % % % % % 

1390 ?SUBROUTINE 

1400 ? % 11 # % t % % % % % % % 111 * 11 * t * * % % % % t * t % % % % % t % % % % % % t '* 


1410 CHROUT 

STA 

RDE 

1 OUTPUT CHAR TO E 

1420 

LDX 

#$02 


1430 

JMP 

BDOS 

? PRINT A CHARACTER 

1440 CHROB 

STA 

WRKPLC 

?FOR SAYING RBC 

1450 

LDA 

RBC 


■ 1460 

STA 

RWQ 


1470 

LDA 

RBCT1 


1480 

STA 

RWQil 


1490 

LDA 

WRKPLC 


1500 

JSR 

CHROUT 

? TO PRINT A CHAR 

1510 

LDA 

RWQ 

?FOR RESTORE RBC 

1520 

STA 

RBC 


1530 

LDA 

RWQ + 1 


1540 

STA 

RBC-M. 


1550 

RTS 



1560 CRLF 

LDA 

♦ $OD 

? 'CR' TO A 

1570 

JSR 

CHROB 

?OUTPUT 'CR' 

1580 

LDA 

♦ $0A 

?' LF' TO A 

1590 

JMP 

CHROB 

50UTPUT 'LF' 

1600 SPACE 

LDA 

t$20 

?' ' TO A 

1610 

JMP 

CHROB 


1620 ? PRINT STRING UNTIL 'NUL'?MESSAGE POINTER II 

1630 * .v H .V -V .V N M M H N H .W H N .V HHHNHMHNNHNHNNHNNHHMHHHH .V H 

1640 STRIOA 

JSR 

CRLF 

?OUTPUT 'CR' 'LF' 

1650 

LDA 

RBC 

?GET MESSAGE POINTER 

1660 

STA 

RHL 


1670 

LDA 

RBCil 


1680 

STA 

RHL+1 

?NOW RHL POINTES MESSAGE 

1690 ?PRINT STRING ?MESSAGE IN RHL 

1700 J MMftMMMNNHHHttMNHMHNMHMMMMftMHHHMHHNH 

1710 STRIOB 

LDY 

#$00 

5CLEAR Y 

1720 

LDA 

(RHL) ?Y 

? GET A CHAR 

1730 

BNE 

L00P1 

?CHAR='NUL'? 

1740 

RTS 


?YES?END PRINT AND RETURN 

1750 LOOF‘1 

INY 


?NO? 

1760 

STY 

RWQ 


1770 

JSR 

CHROUT 

50UTPUT A CHAR 

1780 

LDY 

RWQ 


1790 

JMP 

STRIOB+2 

?CONTINUE 

1800 RSTDSK 

LDX 

#$OA 

?RESET DISK OPERATION 

1810? 




1820? 




1830? 






>SELECT DISK OPERATION 


1840! 

1850! 

1840) 

1870 JMP BDOS 

1880 SELDSK LDX i$13 
1890 JHP BDOS 

1900 9THE FOLLOWING 8 ROUTINES CALL BDOS THEN 

1910 »RETURN VALUE TO RETVAL fAllRETURN 

1930 CDOSRT LDA RDE 
1940 LDY RDEil 

1950 CD0SR1 JSR BDOS 


1940 

ST A 

RETVAL 

JRETURN VALUE TO 'RETVAL' 

1970 

CLC 



1980 

ADC 

*$01 

»a+i»then return 

1990 

RTS 



2000 OPNFLB 

LDX 

*$16 ; 

OPEN DISK FILE 

2010 

JHP 

CDOSRT 


2020 OPNFL 

LDA 

*$00 


2030 

STA 

FCBBD 

;CLEAR SOHE PLACE OF FCB 

2040 

JSR 

FCBTOD 

J FCBP TO RDE 

2050 

JHP 

OPNFLB 

5TO OPEN FILE 

2040 CLSFIL 

LDX 

*$17 

i CLOSE FILE 

2070 

JHP 

CDOSRT 

; 

2080 SERFST 

LDX 

*$1C 

j SEARCH FOR FIRST 

2090 

JHP 

CDOSRT 

2100 SERNXT 

LDX 

*$1D 

■SEARH FOR THE NEXT 

2110 

JHP 

CDOSR1 


2120 SERFIL 

JSR 

FCBTOD 

J FCBP TO RDE 

2130 

JHP 

SERFST 


2140 FCBTOD 

LDA 

FCBP 

j FOR FCB TO RDE 

2150 

STA 

RDE 


2140 

LDA 

FCBP+1 


2170 

STA 

RDE+1 


2180 

RTS 



2190 DELFIL 

LDX 

*$15 

»DELETE FILE 


2200 5THE FOLLOWING ROUTINE CALLING CDOSB 

2210 i RETURN ZERO IF SUCCESS 


2220 

f - 

— 



2230 


LDY 

*$21 


2240 

CDOSB 

LDA 

RDE 


2250 


LDY 

RDE-fl 


2260 


JSR 

BDOS 


2270 


CLC 



2280 


RTS 


j RETURN VALUEOO IF FALSE 

2290 

RDSEQB 

LDX 

*$18 

;read sequential 

2300 


JHP 

CDOSB 


2310 

RDSEQ 

JSR 

FCBTOD 

;FCB TO RDE 

2320 


JHP 

RDSEQB 

;TO READ SEQUENTIAL 

2330 

URSEQ 

LDX 

*$19 

IWRITE SEQUENTIAL 

2340 


JHP 

CDOSB 


2350 

HAKFIL 

LDX 

*$14 

5HAKE FILE 

2360 


JHP 

CDOSRT 

1 RETURN VALUE TO 'RETVAL' 

2370 

RENFIL 

LDA 

RDE 







2380 LBY RUE 

2390 LDX *$1E 

2400 JMP BUGS 

2410 GETCOB LDA *$FF 

2420 ST A ROE 

2430 SETCOD LDX *$11 
2440 JMF' BUGS 

24501 PRINT PAGE 


MbVf - 


— 

2470 PRNPG1 

JSR 

SPACE 

2480 

JSR 

SPACE 

2490 

LDY 

*$21 

2500 

LDA 

(RHL)j Y 

2510 

STA 

FCBB+$25 

2520 

INY 


2530 

LDA 

(RHL),Y 

2540 

STA 

FCBB+$26 

2550 

CLC 


2560 

ROR 

FCBBP$26 

2570 

ROR 

FCBB-F$25 

2580 PRNPG2 

LDY 

*06 

2590 NXTDIG 

LDX 

*00 

2600 SUBEM 

LDA 

FCBBE$25 

2610 

SEC 


2620 

SBC 

SUBTBLjY 

2630 

STA 

FCBBT$25 

2640 

LDA 

FCBBT$26 

2650 

INY 


2660 

SBC 

SUBTBLjY 

2670 

BCC 

ADBACK 

2680 

STA 

FCBB+$26 

2690 

I NX 


2700 

DEY 


2710 

JMP 

SUBEM 

2720 ADBACK 

DEY 


2730 

LDA 

FCBB+$25 

2740 

ADC 

SUBTBL»Y 

2750 

STA 

FCBBf$25 

2760 

TXA 


2770 

ORA 

*$30 

2780 

STY 

RNW 

2790 

JSR 

CHROUT 

2800 

LDY 

RNW 

2810 

INY 


28205 



2830 

INY 


2840; 



2850 

CF’Y 

*$0A 

28605 



2870 

BCC 

NXTDIG 

2880 

LDA 

FCBB+$25 

2890 

ORA 

DSKNUM 

2900 

ORA 

*$30 

2910 

JMP 

CHROUT 


5RENAME FILE 


?$FF TO E 

iSET/GET ESER CODE 
iRETURN USER CODE IF 'GET' 


?PAGE POSITION 
5GET PAGE NUMB. 
5 SAVE 

5 GET PAGE MSB 
5 SAVE 


JIF PAGE 000-999 
JINIT DIGIT COUNT 
. 5FETCH LSBY 

5-LSBT OF TAB 
■ 5RETURN TO MEMORY 
5FETCH MSBY 

5-MSBY OF TAB 
5IF RESULT IS 
5 NO 

5PTR LSBY IN TABLE 

;loop 

!PTR LSBY IN TABLE 
5FETCH LSBY 
5+LSBY OF TAB 

5DIGIT COUNT TO A 
5 CONVERT TO ASCII 
5SAVE 

JOUT DIGIT 
5RESTORE Y 


5PTR TO NEXT TABLE 


5 LOOP 


5CONVERT TO ASCII 
5 PRINT REMAINDER 




2920 

?CHANGE 

LOWER 

CASE TO UPPER CASE 

noir, 

* _ 




2940 

CUPCAS 

CMP 

**61 

»CHAR>=LOUER CASE A ? 

2950 


BOS 

LOPU1 

»NO> 

2960 


RTS 


?YES?RETURN 

2970 

L0PU1 

CMP 

*$7C 

?CHARCLOWER CASE Z+l? 

2980 


BCC 

L0PU2 

?NO?GO TO L0PU2 

2990 


RTS 


?YES?RETURN 

3000 

L0PU2 

AND 

*$5F 

?LOWER CASE TO UPPER CASE 

3010 


RTS 




3020 JCOLD START?($0IFF)=0 5 ROUTINE SHOW OP VERSION 
3030 fWARM START? ($01FFK>05R0UTINE HANDLE IN BUFF 
3040 ?- 


3050 INBUFL 

LDA 

$01FF ?'COLD START'? 

3060 

CMP 

*$FF 

3070 

BNE 

MJN ? N 0 ? 

3080 

JSR 

CRLF 

3090 

LDA 

MSGAD1 

3100 

STA 

RHL 

3110 

LDA 

MSGAD1+1 ?P 

3120 

STA 

RHL+1 5RHL POINTES 'CP/H VERSION--' 

3130 

JSR 

STRIDE ? PRINT MESSAGE STRING 

3140 

JSR 

ENDINB ?YES TO FILL 0 TO *01FF 

3150 MJN 

JMP 

START 

3160 INBUFA 

LDA 

**80 ?BUFF SIZE 

3170 

STA 

IBUBCC ?SAVE BUFF SIZE 

3180 

LDA 

♦ IBUBCC ?BUFF ADDRESS 

3190 

LDY 

♦IBUBCC/256 

3200 

LDX 

#$06 ?INPUT BUFF LINE 

3210 

JSR 

BDOS 

3220 

LDA 

♦IBUBC 

3230 

STA 

RHL 

3240 

LDA 

tIBUBC/256 

3250 

STA 

RHL+1 5RHL POINTES INPUT BUFFER 

3260 

LDX 

IBUBC ?X AS COUNTER FOR NUMB OF CHAR 

3270 

LDY 

*$00 

3280 LOPIB1 

INC 

RHL 

3290 

TXA 


3300 

BEQ 

BUFEND ?NUMB.OF CHAR=0?BRANCH 

3310 

LDA 

(RHL)? Y ? NO ? GET A CHAR 

3320 

JSR 

CUPCAS ?LOWER CASE TO UPPER CASE 

3330 

STA 

(RHL) ?Y ?SAVE UPPER CHAR 

3340 

DEX 

?C0UNTER-1=0? 

3350 

JMP 

LOPIB1 ?CONTINUE 

3360 BUFEND 

STA 

(RHL)?Y ?0 TO (RHL) 

3370 

LDA 

IBUFF 

3380 

STA 

IBUFPA 

3390 

LDA 

IBUFF+1 

3400 

STA 

IBUFPA+1 ?IBUFPA POINTES HEAD OF BUFF 

3410 

RTS 


3420 CSTATD 

LDX 

t$09 

3430 

JSR 

BDOS 

3440 

PHA 


3450 

PLA 

?FL.AGE=0? 





3460 

BNE 

LOF'CSl 

{ HO 9 BRSANCH 

3470 

RTS 


} YES»RETURN 

3480 LOF'CSl 

LDX 

*$01 

»CONSOLE INPUT OPERATION 

3490 

JSR 

BDOS 


3500 

F'HA 



3510 

FLA 


5 FLAGE Z = 0? 

3520 

RTS 



3530 RETURN 

LDX 

*$oc 

5RETURN CURRENT DISK 

3540 

JHP 

BDOS 



3550 STBHAI 

LDA 

*DHAD 


3560 

STA 

RDE 


3570 

LDA 

♦DMAB/25 

6 

3580 

STA 

RDE FI 

5RDE POINTES $0080BUF 

3590 SETBHA 

LDX 

*$12 

{SET DHA OPERATION 

3600 

LDA 

RDE 


3610 

LDY 

RDEF1 


3620 

JMP 

BDOS 


3630 ENDINB 

LDA 

*$00 


3640 

STA 

$01FF 

>0 TO STACK 

3650 

LDA 

DSKNUM 


3660 

JSR 

SELDSK 

{SELECT CURRENT DISK 

3670 

RTS 



3680 CHDEND 

JSR 

CRLF 

5OUTPUT 'CR''LF' 

3690 

LDA 

I BUFF'D 

{IN BUFF TO RWK REF'3120' 

3700 

STA 

RWK 


3710 

LDA 

IBUFF'BFl 

{ 

3720 

STA 

RUK+1 

{RWK POINTES IN BUFF 

3730 

LDY 

*$00 


3740 LOPCN1 

LDA 

(RWK)»Y 

5GET A CHAR 

3750 

CHP 

*$20 

5CHAR=' '? 

3760 

BEQ 

ERENDC 

5 YES 

3770 

PHA 



3780 

F’LA 


5CHAR='0' 

3790 

BEQ 

ERENDC 

{Y» 

3800 

JSR 

CHROUT 

»OUTPUT CHAR 

3810 

INC 

RWK 


3820 

JHP 

LOF'CNl 

{CONTINUE 

3830 ERENDC 

LDA 

*$3F 

»'?' TO A 


3840 

JSR CHROUT 

{OUTPUT '?' 

3850 

JSR CRLF 

{OUTPUT 'CR' 'LF' 

3860 

JSR ENDINB 

{TO END COMMAND 

3870 

JHP START 


3880 

{CHECK SPECIAL 

CHARACTER 

3890 


3900 

CHARCK JSR RDRDE 

{READ (RED) 

3910 

CHP *$00 


3920 

BEQ CHEND 

{RETURN IF CHAR='NUL' 

3930 

CHP *$20 

JNO,CHECK CHAR=' '? 

3940 

BEQ CHEND 

JYESjRETURN 

3950 

BCC CHDEND 

JGO 'ERROR-HANDLE' IF CHARC' ' 

3960 

CHP *$3D 

;CHAR='='? 

3970 

BEQ CHEND 

JYESfRETURN Z=0 

3980 

CHP *$5F 

{CHAR='<-'? 

3990 

BEQ CHEND 



4000 

CMP 

*$2E 

»CHAF:=','? 

4010 

BEQ 

CHENIi 


4020 

CHF‘ 

*$3A 

»CHAR='J'? 

4030 

BEQ 

CHEND 


4040 

CMP 

#$3B 

;char=' i'? 

4050 

BEQ 

CHEND 


4060 

CMP 

*$3C 

5CHAR='<'? 

4070 

BEQ 

CHEND 


4080 

CMP 

*$3E 

}CHAR='>'? 

4090 

BEQ 

CHEND 


4100 CHEND 

RTS 



4110 RDRDE 

STY 

WRKPLD+1 

? SAME Y 

4120 

LDY 

*$00 


4130 

LDA 

(RDE)? Y 

> GET A CHAR 

4140 

LDY 

WRKPLD+1 

i RESTORE 


4150 RTS 

4160 iSKIP ' ' 




4130 

SKPBLK 

JSR RDRDE 

>GET A CHAR» 

4190 


CMP *$00 


4200 


BEQ KPND 

5'BUFF-END' 

4210 


CMP *$20 

»CHAR=' '? 

4220 


BNE KPND 

jNONRETURN 

4230 


INC RDE 

j GET NEXT CHAR 

4240 


JMP SKPBLK 

5 LOOP 

4250 

KPND 

RTS 


4260 

; % ********** * * * * * * * * * * * * * * * *. * * * * * * * * * * * * * * % * * 

4270 

JFILL FCB FROM 

FCB'POINTER' + (A) 

4280 

;******************************************** 

4290 

FIFCBM 

CLC 


4300 


ADC RHL 

»(A)+(L) 

4310 


STA RHL 

;to <l> 

4320 


BCC FIEND 

j RETURN IF FLAG C=0 

4330 


INC RHL+1 

»NO»< H)+1 

4340 

FIEND 

RTS 


4350 

$ FILL FCB FROM 

BEGINNING OF FCB 

4360 


4370 

FIFCBB 

LDA *$00 


4380 

FIFCB 

PHA 


4390 


LDA FCBP 


4400 


STA RHL 


4410 


LDA FCBP+1 


4420 


STA RHL+1 

;rhl pointes fcb 

4430 


PLA 


4440 


JSR FIFCBM 

j(RHL)+<A) TO RHL 

4450 


LDA RHL 


4460 


STA RUK 


4470 


LDA RHL+1 


4480 


STA RWK+1 

5SAVE INITIAL VALUE OF RHL 

4490 


LDA *$00 


4500 


STA WRKF'LA 

5 CLEAR 

4510 


STA WRKF’LD 

j'URKPLD'AS COUNTER FOR RDE 

4520 


LDA IBUFF'A 


4530 


STA RDE 



4540 LHA IBUFPA+1 


4550 

STA 

RDE+1 

5 RDE PCINTES INPUT BUFF 

4560 

JSR 

SKF'BLK 

5 TO SKIP ' ' 

4570 

LDA 

RDE 


4580 

STA 

IBUFPB 


4590 

LDA 

RDE+1 


4600 

STA 

IBUFPB+1 

5SAME NEW POINTER IN IBUFP 

4610 

LDY 

*$oo 


4620 

INC 

RDE 

5PRT 2 CHAR 

4630 

JSR 

RDRDE 

5GET 2'S CHAR 

4640 

CMP 

#$3A 

i ' i '? 

4650 

BEQ 

FIDKNN 

5YESjFILL dsknumb 

4660 

LDA 

*$00 


4670 

STA 

<RWK) »Y 

?FILL PCB 

4680 

LDA 

DSKNUM 

5 CURRENT DISK 


4690 

STA 

URKPLA 

5SAVE REQ,DSKNUM 

4700 

DEC 

RDE 

5RET l'S CHAR IN BUFF 

4710 

JMP 

FINAME 


4720 FIDKNN 

DEC 

RDE 

5PTR I'S CHAR IN BUFF 

4730 

JSR 

RDRDE 


4740 

SEC 



4750 

SBC 

*$40 


4760 

STA 

RWQ 


4770 

STA 

URKPLA 

5SAME REQ.DSKNUM 

4780 

DEC 

URKPLA 


4790 MEDJN 

STA 

(RUK)? Y 

5FILL ' D' T 0 PCB 

4800 

INC 

RDE 


4810 

INC 

RDE 

5PTR 3'CHAR IN BUFF 

4320? 




4830 5 FILL 'NAME' IN 

FCB 

4840 * H s H H H M H .V H H H .V j¥ H .V JX jV H .H N H N H H X N M N H H H H H H N H » H M 

4S50 FINAME 

LDX 

*$08 

5X AS COUNTER FOR 8 CHAR 

4860 

LDA 

*$20 


4870 

STA 

RNU 

5INIT ' ' 

4880 LOF’FIl 

JSR 

CHARCK 

5CHECK SF'ECIALCHAR 

4890 

BEQ 

FIBLK1 

5TO FILL ' 'IF RET Z=0 

4900 

I NY 



4910 

CMP 

*$2A 

5CHAR='*'? 

4920 

BNE 

FICHAR 

5 NO? TO FILL CHAR 

4930 

LDA 

*$3F 

5YES?'?'T0 A 

4940 

STA 

(RUK)»Y 


4950 

STA 

RNU 


4960 

JMP 

FINEXT 


4970 FICHAR 

STA 

(RUK)»Y 

5A CHAR TO FCB 

4980 

LDA 

*$20 


4990 

STA 

RNU 


5000 FINEXT 

INC 

RDE 

5POINTES NEXT CHAR 

5010 

DEX 


5COUNT X-1=0? 

5020 

BNE 

LOPFI1 

5 NO»LOOP 

50305 




5040 5TO FIND 

THE END 

OF NAME 

5050 ^NHHMHHHHNHHtiNNNNNNHNHHNHNNNNNHNNH 

5060 FINDSG 

JSR 

CHARCK 

5TO CHECK SPECIAL CHAR 

5070 

BEQ 

FITYP 

5TO FILL TYPE IF RET Z=G 


5080 


INC 

RDE 


5090 


JHP 

FINBSG 

»LOOP 

5100 

7 




5110 

;to 

FILL 

' ' IN 

FCB 

5120 


HHHHNHHMMMNMHHHNNH 

5130 

FIBLK1 

F'HA 



5140 

FIBLK 

INY 



5150 


LDA 

RNW 

r ' OR ? TO A 

5160 


STA 

<RWK)»Y 

r ' TO FCB 

5170 


DEX 


r COUNTER X-1=0? 

5180 


BNE 

FIBLK 

t LOOP 

5190 


PL A 



5200 

;to 

FILL 

TYPE IN 

FCB 

5210 

nt% 

% % % % % %%%% t % % % % % % % % 11 % % % '* 

5220 

FITYP 

LDX 

t$20 


5230 


STX 

RNW 


5240 


LDX 

*$03 

»X AS COUNTER FOR 3 CHAR 

5250 


CHP 

♦ $2E 

i CHAR='>'? 

5260 


BNE 

FIBLKT 

»N0»FILL ' 'IN FBC 

5270 


INC 

RDE 

$ RDE F'OINTES NEXT CHAR 

5280 

LOF'TP 

JSR 

CHARCK 

»CHECK SPECIAL CHAR 

5290 


BEQ 

FIBLKT 

5TO FILL ' 'IF RET Z = 0 

5300 


INY 



5310 


CHP 

*$2A 

5CHAR='*'? 

5320 


BNE 

FILLCH 

»NO»TO FILL CHAR 

5330 


LDA 

*$3F 

5'?' TO A 

5340 


STA 

(RUK)»Y 

j' ?'AS TYPE TO FCB 

5350 


STA 

RNW 


5360 


INC 

RDE 

1PTR NEXT CHAR 

5370 


JHP 

NEXTP 

j TO FILL NEXT CHAR 

5330 

FILLCH 

STA 

<RWK)>Y 

5CHAR TO FCB 

5390 


LDA 

*$20 


5400 


STA 

RNW 


5410 


INC 

RDE 

5RDE POINTER NEXT CHAR 

5420 

NEXTP 

DEX 


5COUNTER X-1=0? 

5430 


BNE 

LOF'TP 

»NO» LOOP 

5440 

J TO 

FIND 

THE END 

OF COHHAND 


5450 j 


54605 
54705 
54305 
54905 
55005 
55105 
55205 
55305 
5540 5 

5550 BLNKJ1 JMF' FINDS 

5560 FNDEDG J3R CHARCK 5T0 CHECK SPECIAL CHAR. 

5570 BNE FINDS 5 IF RETURN Z=0 

5580 INC RDE 5F'OINTES NEXT 

5590 JHP FNDEDG 5 LOOP 

5600 FIBLKT INY 
5610 LDA RNW 


OR ? TO A 


5620 


STA 

<RUK),Y 

f' 'TO FCB 

5630 


DEX 


» COUNTER X-1=0? 

5640 


BNE 

FIBLKT 

jNO,LOOP 

5650 

FINDS 

LDX 

*$03 

iX AS COUNTER FOR 3'NUL' 

5660 

LOF'FEN 

INY 



5670 


LDA 

*$00 

5'NUL' TO A 

5680 


STA 

(RUK ) ,Y 

?TQ FCB 

5690 


DEX 


jCOUNTER X-1=0? 

5700 


BNE 

LOF'FEN 

» NO,LOOP 

5710 


LDA 

RDE 


5720 


STA 

IBUFPA 


5730 


LDA 

RDE+1 


5740 


STA 

IBUFPA+1 

> SAVE INPUT BUFFER 

5750 

CKQUEN 

LDY 

*$00 


5760 


STY 

RBC 


5770 


LDX 

*$OB 

»X AS COUNTER FOR 11C-HAR 

5780 

JCOMPUTE 

' ?'NUMBER IN FCB 

5790 


5800 

CHKQUE 

INY 


j SCAN FCB 

5810 


LDA 

(RUK) ,Y 

jGET A CHAR FROM FCB 

5820 


CMP 

*$3F 

>CHAR='?'? 

5830 


BNE 

NEXCH 

5 NOf60 TO NEXT CHER 

5840 


INC 

RBC 

?C AS COUNTER FOR '?'NUMBER 

5850 

NEXCH 

DEX 


5COUNTER X-1=0? 

5860 


BNE 

CHKQUE 

> NO»LOOP 

5870 


LDA 

RBC 


5880 


RTS 



5890 

» COMPARE 

THE COMMAND IN FCB WITH NAME TABLE 

5900 

i RETURN i 

4=0 TO 6 

WHICH POINTES COMMAND POSITION 

5910 


5920 

CMDCMP 

LDA 

TABADD 


5930 


STA 

RUK 


5940 


LDA 

TABADD+1 


5950 


STA 

RUK+1 

j RUK POINTES COMMAND TABLE 

5960 


LDY 

*$00 


5970 


LDX 

*$00 

;X AS COUNTER FOR 6 COMMANDS 

5980 1 

LOF'CM 

TXA 



5990 


CMP 

*$06 

jCOUNTER X>=6? 

6000 


BCS 

CMPEND 

jYES,JUMP 

6010 


LDA 

FCBPB 


6020 


STA 

RDE 


6030 


LDA 

FCBF'B+1 


6040 


STA 

RDE + 1 

5 RDE PTR COMMAND NAME 

6050 


LDA 

*$04 


6060 


STA 

RHL 

5HL AS COUNTER FOR COMPARE 4 i 

6070 CMF'BGN 

JSR 

RDRDE 

JGET A CHAR FROM FCB 

6080 


CMP 

<RWK),Y 

5 EQUAL? 

6090 


BNE 

CHGNX1 

j NO,TO CHANGE NEXT COMMAND 

6100 


INC 

RDE 

5 YES 

6110 


INY 



6120 


DEC 

RHL 

5C0UNTER-1=0? 

6130 


BNE 

CMPBGN 

5 NO,CONTINUE 

6140 


JSR 

RDRDE 

;YES,4 CHAR EQUAL 

6150 


CMP 

*$20 

;' '? 



6160 

BNE 

CHGNX2 

1 NO,COMPARE AGAIN 

6170! 

LDA 

RDE 


61801 

STA 

IBUFPA 


61901 

LDA 

RDE + 1 


62001 

STA 

IBUFPA+1 

1PTR END OF COMMAND NAME?? 

6210 

TXA 


1 YES,GET POSITION OF TABLE 

6220 CMPEND 

RTS 



6230 CHGNX1 

I NY 



6240 

DEC 

RHL 

j*4C0UNTER -1=0? 

6250 

BNE 

CHGNX1 

1 NO,LOOP 

6260 CHGNX2 

I NX 



6270 

JMP 

LOPCM 

1 CONTINUE 


6280 5SEPARATE USER CODE WITH DISK NUMB * 


6290 *SET USER CODE,SELECT CURRENT DISK 


} H H .V H H M .V H H fi H H H H H M .V .V ,V K H H H N H M H N H H N N H JhT .V .V H .V .V H 


6300 

6310 MAIN F’HA 


6320 

6330 

6340 

6350 

6360 

6370 


JSR RSTDSK 
PLA 

STA DSKNUM 
JSR SELDSK 
JMP INBUFL 


1 RESET DISK SYSTEM 

5CURRENT DISK TO 'DSKNUM' 
5TO SELECT CURRENT DISK 
1 VERSION SHOW? 


********** % *** * ** % % *************** % * * * ** * * * 


6380 j ST ART AFTER ENDING EACH CONSOLE COMMAND 

6390 1 ******* * * * * * * * * * * ****** * * * * *. * * * * * * * * * * * * * * 


6400 

START LDX *$22 


6410 

JSR BOOS 


6420 

LDX *$FE 


6430 

TXS 

1$FE TO SP 

6440 

LDA DSKNUM 


6450 

JSR SELDSK 


6460 

JSR CRLF 

1 OUTPUT 'CR''LF' 

6470 

JSR RETDKN 

1 RETURN CURRENT DISK 

6480 

CLC 


6490 

ADC *$41 

1 CHANGE DISK NUMB,TO CHA 

6500 

JSR CHROUT 

1 OUTPUT 'A' OR 'B'- - 

6510 

LDA #$3E 

1' >' T 0 A 

6520 

JSR CHROUT 

1 OUTPUT '>' 

6530 

JSR INBUFA 

1RECEIVE MESSAGE FROM CONSOLE 

6540 

LDA IBUBCH2 

12'S CHAR IN BUFF 

6550 

CMP *$3A 

1' *.' ? 

6560 

BEQ BF'SDK 


6570 

ENTRYA LDA tDMAD 


6580 

STA RDE 


6590 

LDA *DMAD/256 

6600 

STA ROET1 

5RDE POINTES DMA ADDRESS 

6610 

JSR SETDMA 

5 SET DMA 

6620 

JSR FIFCBB 

1FILL COMMAND IN FCB,RET '?'CO 

6630 

BNE CMDND1 

1 IF RET'?'CQUNTOO,ERR COMMAND 

6640 

JSR CMDCMP 

1 TO COMPARE COMMAND 

6650 

1 BASED ON TAB POSITION RETURNED BY 'CMDCMP' 

6660 

1,PROGRAM JUMP TO 

DIFFERENCE ENTRY 

6670 

1 *********************************************** 

6680 

STA RWK 

1 SAVE RETURN VALUE 

6690 

LDA TBLAD2 

1 ENTRY ADDR,TABLE TO A 



6700 

STA 

RHL 


f 6710 

LDA 

TBLAD2+1 


f 6720! 




[ 67301 




6740) 




6750; 




f 6760 

STA 

RHL+1 

»RHL POINTES ENTRY ADBR.TABLE 

f 6770 

LDA 

RWK 


CO 

r^-. 

'■O 

CLC 



6790 

ADC 

RWK 

J(RETURN VALUE)*2 

6800 

ADC 

RHL 

( 

6810 

STA 

RHL 


6820 

LDA 

#$■00 

(REMAIN FLAGE C 

6330 

ADC 

RHL + 1 


6840 

STA 

RHL+1 

(TABL.HEAD+(RET.VAL.)*2 

6850 

LDY 

#$00 


6860 

LDA 

(RHL)»Y 


6870 

STA 

RWK 


6880 

INY 



6890 

LDA 

(RHL5»Y 


6900 

STA 

RWK+1 


6910 

JMP 

(RWK) 

(TO DIFFERENCE ENTRY 

6920 CMDNB1 

JMP 

CMDEND 

(END ERR.COMMAND 

6930 BPSDK 

LDA 

IBUBC+$3 

(3'S CHAR 

6940 

CMP 

#$00 

; '00'? 

6950 

BNE 

ENTRYA 

(NOT a; OR BICOMMAND 

6960 

JMP 

PSDK 

(At OR Bt COMMAND 


6970 >SOME LOCAL SUBROUTINES 

6980 ; * * * * # * '4£ ^ ^ ^ ^ * * * ^ * ^ ^ * *4c 

6990 JOUTF’UT ERROR MESSAGE 
7000 


7010 

PRTER1 

LDA 

RDERRA 

(MESSAGE ADDR.TO A 

7020 


STA 

RBC 


7030 


LDA 

RDERRA+1 


7040 


STA 

RBC+1 

(RBC POINTES 'MESSAGE' 

7050 


JMP 

STRIOA 

(OUTPUT 'DEAD ERROR' 

7060 

PRTER2 

LDA 

NOFERA 

(MESSAGE ADDR* TO A 

7070 


STA 

RBC 


7080 


LDA 

NOFERA+1 


7090 


STA 

RBC+1 

(RBC POINTES 'MESSAGE' 

7100 


JMP 

STRIOA 

(OUTPUT 'NO FILE' 

7110 

('DIGIT' 

HANDLE FOR PAGE g USER CODE 

7120 


7130 

DIGHD 

JSR 

FIFCBB 

(FILL 'DIGIT' IN FCB 

7140 ? 


LDA 

WRKPLA 


7150; 


BNE 

DIGEN1 

(ERR.END 

7160 


LDA 

*$00 


7170 


STA 

RWQ 

(RWQ FOR SAVING HIGH BITS 

7180 


LDA 

FCBPB 

( 

7190 


STA 

RHL 


7200 


LDA 

FCBPB+1 


7210 


STA 

RHL + 1 

(RHL POINTES FCB 

7220 


LDY 

*$00 


7230 


LDX 

*$0B 

(X AS COUNTER FOR 11 CHAR. 




m 


f 72-0 

LOPDIG LDA 

(RHL) r'f 

rGET A CHAR 

I 7250 

CMP 

#120 

>CHAR=' '? 

j 7240 

BEQ 

SKPEN1 

> YES,JUMP TO END 

7270 

INY 


» NO j 

7280 

SEC 



l 7290 

SBC 

l$30 

t CHAR-' 0'BIAS 

7300 

CMP 

t$OA 

JCHAR<=9? 

731C 

BCS 

DIGEN1 

;no, end err,command 

7320 

STA 

RUK 

J SAVE LOUER BITS 

7330 

LDA 

RUQ 

iHIGH BITS TO A 

7340 

AND 

*$EO 


7350 

BNE 

DIGEN1 

» TO END ERR,COMMAND IF AOQ 

7360 

LDA 

RUQ 


7370 

CLC- 



73SO 

ROR 

A 


7390 

ROR 

A 


7400 

ROR 

A 


I 7420 

ROR 

A 


ROR 

A 


74o0 

ROR 

A 

5(A)LEFT SHIFT 4 

7440 

ADC 

RUQ 

) OVERFLOU? 

7450 

BCS 

DI6EN1 

? YES ? ERR, 

7460 

ADC 

RUQ 

j OVERFLOU? 

7470 

BCS 

DI6EN1 

5 YES » ERR, 

7430 

ADC 

RUK 

?ADD LOU BITS 

7490 

BCS 

DIGEN1 

5ERR,IF OVERFLOU 

7500 

STA 

RUQ 

t SAVE NEU HIGH BITS 

7510 

DEX 


? COUNTER X-1 = 0? 

7520 

BNE 

LOPDIG 

JNO»LOOP 

7530 

RTS 



7540 D 

IGEN1 JMP 

CMDEND 

5TO END ERR,COMMAND 

7550 S 

KPEN1 LDA 

(RHL)fY 

JGET A CHAR 

7560 

CMP 

*$20 

JCHAR=' '? 

7570 

BNE 

DIGEN1 

JNOjERR, 

7530 

INY 



7590 

DEX 


» COUNTER X-1=0? 

7600 

BNE 

SKPEN1 

» NO » LOOP 

7610 

LDA 

RUQ 

J'DIGIT' TO A » RETURN 

7620 

RTS 



7630 

5MOVE routine 


7640 

* MNHHHNNHHMHHHHMMtiNHNNtlNN 

7650 MV3CHR LUX 

*$03 

5X AS COUNTER FOR MOVING 3 BYT 

7660 BLKMQV LDY 

*$00 


7670 BLKM02 LDA 

(RHL) > Y 

» GET CHAR 

7680 

STA 

(RDE) f Y 

> SAVE CHAR 

7690 

INY 



7700 

DEX 


^COUNTER X-1=0? 

7710 

BNE 

BLKM02 

fLOOF’ 

7720 

RTS 



7730 

i COMPUTE 

DIR.ADDR, 

SGET ACHAR. 

7740 


7750 DfiACUN LDY 

♦ DM AD 


7760 

STY 

RHL 


7770 

LDY 

♦DMAD/256 



7760 

STY 

RHL + 1 

>RHL POINTES DMA ADDR♦ 

7790 

CLC 



7800 

ABC 

RBC 

»(C)JDIR.RELATIV.POSITION 

7810 

JSR 

FIFCBM 

5RHL+A TO RHL 

7820 

LDY 

«00 


7830 

LDA 

< RHL) ? Y 

5GET A CHAR 

7840 

RTS 



7850 

; % *** * % * * % %% ** * * * 

* * * * * * * * * * * * * * * * * * * * * * * * * 

7860 

; a:?b:? 

Ct-? COMMAND 

; 7870 

?*******: 

ti ************ ************ ** ** *** * 

7880 

PSBK LDA 

IBUBC+f1 

?DISK CHAR 

' 7890 

SEC 



7900 

SBC 

#$41 

* DISK NUMBER 

! 7910 

PHA 



1 7920 

JSR 

SELDSK 

JCHANR-DSK 

7930 

PL A 



7940 

• STA 

DSKNUM 


7950 

JHP 

START 


7960 

******** ****** * ** * **** **************** *** 

7970 

? DIR COMMAND HANDLE ROUTINE 

7980 

? 1111 % 11%1%111111 

* * * * * * * * * * * * * * * * * * * * * * * * * 

7990 PDIR JSR 

FIFCBB 

? FILL FILE NAME IN FCB 

8000 

LDA 

WRKF’LA 


8010 

JSR 

SELDSK 


8020 

LDA 

FCBPB 


8030 

STA 

RHL 


8040 

LDA 

FCBPB+1 


8050 

STA 

RHL+1 

5RHL POINTES FCB 

8060 

LDY 

f$00 


3070 

STY 

FCBB#$OC 

5 CLARE SOME PLACE 

8080 

LDA 

(RHL)?Y 

? GET FIRST CHAR FOR D-NAHE 

8090 

CMP 

#$20 

» CHAR= ' '? 

8100 

BNE 

BRNCHB 

? NO?BEG IN TO SEARCH FILE 

8110 

LDX 

# $OB 

*YES?X AS COUNTER FOR 11 CHAR 

3120 PATCHQ LDA 

#$3F 

?'?' TO A 

8130 

STA 

(RHL)fY 

»'?' TO FCB 

3140 

I NY 



3150 

DEX 


? COUNTER X-1=0? 

3160 

BNE 

PATCHQ 

5NO?LOOP 

8170 BRNCHB LDA 

*$00 


8180? 

8190 

STA 

RWK 

> CLEAR COUNTER ' RWK ' 

8200 

JSR 

CRLF 

? OUT ' CR '' LF ' 

8210 

LDA 

URKPLA 

5REQ.DISK 

8220 

CLC 



8230 

ADC 

*$41 

? TO DISK NUMB, 

8240 

JSR 

CHROB 

?OUT DISK NAME 

8250 

LDA 

*$3A 

?: TO A 

8260 

JSR 

CHROB 

»out ':' 

8270 

JSR 

SERFIL 

? SEARCH FOR THE FIRST 

8280 

BNE 

LOPDIR 

JSEARCH SUCCESS ? JUMP TO 

8290 

JSR 

PRTER2 

? SEARCH FALSE?PRINT'NO FILE' 

8300 

JMP 

DIREND 

5 TO END COMMAND 

8310 LORDIR LDA 

RETVAL 

»RET VALUSE TO A 




8320 

ROR A 

8330 

ROR A 

[ 8340 

ROR A 

j 8350 

ROR A 

8360 

AND *$60 

8370 

STA RBC 

8380 

STA RUQ 

8390 

LDA *$OA 

8400 

JSR DMACUN 

8410 

BHI NXTDR2 

8420 

LDA RWK 

8430 

INC RWK 

0 A A rt 

Ul'IV 

AND *$03 

8450 

STA RUQ+1 

8460 

BNE WARHR 

8470 

JSR CRLF 

8480 

INC RWK 

8490 

JHP COMMON 

3500 WASNR 

JSR SPACE 

8510 

JSR SPACE 

3520 

JSR SPACE 

8530 COMMON 

JSR SPACE 

8540 

LDA RUQ 

8550 

STA RBC 

3560 

LDX *$01 

8570 

STX RNW 

8580 ONEDIR 

LDA RNW 

8590 

JSR DMACUN 

8600 

AND *$7F 

8610 

JSR CHROB 

8620 

LDX RNW 

8630 

CPX *$08 

8640? 


8650? 


8660? 


8670? 


8680 ? 


8690 

BNE MEDIR2 

8700 

JSR SPACE 

3710 

LDX RNW 

8720 HEDIR2 

CPX *$0C 

8730 

BEQ NXTDR2 

8740 

INC RNW 

8750 

BNE ONEDIR 

3760 NXTBR2 

LDA *$00 

8770 

JSR DMACUN 

8780 

LDA RHL 

8790 

STA RDE 

8300 

LDA RHL+i 

8810 

STA RDE+1 

8820 

LDA FCBB 

8830 

LDY *$00 

8840 

STA (RHL) ? Y 

8850 

LDX *$20 


? (RET UALUES*32) TO RBC 

5CHECK PROTECT 
iCOUNT DIR ADDRESS 

? 

»COUNTER*1 
?SAVE 


?OUTPUT ' ' 

5 OUT ' ' 

? OUT ' ' 
j OUTPUT ' ' 

»<C) ‘.RET. UAL.*32 

;x AS COUNTER?INITIAL UAL 

5SAUE 'X'REG» 

?CHAR COUNTER TO A 
? GET CHAR 

? OUT CHAR 

?END FILE NAME ? 


?INSERT ' ' 
JEND TYPE ? 


?RHL PTR FCB 


jRDE PTR FCB 


5URITE DSK TO FCB' 
? COUNT PAGE NUfIB, 




8860 

JSR 

C-DOSRT 


8870 

JSR 

PRNPG1 

i PRINT PAGE 

8880 

JSR 

CSTATD 

*GET CONSOLE STATUE 

8890 

BNE 

DIREND 

?IF ST AT * <>0,JUMP 

8900 

JSR 

SERNXT 

5SEARCH FOR NEXT 

8910 

BEG 

DIREND 


8920 

JMP 

LORDIR 


8930 DIREND 

IDA 

RUK 

i COUNTER TO A 

8940 

JMP 

PEND 



8950 I *********** * * * * * * * * * * * * * * * * * * * * * * * * * * 
8960 it ERA COMMAND HANDLE ROUTINE * 
8970 i ****** ** * * ** * * * * * * ******* * ** **** * *** * 


8930 PERA 

JSR FIFCBB 

JFILL FILE NAME IN FCB 

8990 

CMP #$OB 

jRETURN IF RET '?'COUNT.=11 

9000 

BNE DELEFI 

? NO , GO DELETE FILE 

9010 

LDA MSGAD3 

»YES,ERR. 

9020 

STA RBC 


9030 

LDA MS6AD3+1 

* 

9040 

STA RBC+1 

>RBC POINTES MESSAGE'ALL(Y/N)? 

9050 

JSR STRIOA 

i OUTPUT 'ALL (Y/N)?' 

9060 

JSR INBUFA 

, WAIT FOR ANSWER 

9070 

LDA IBUBC 

t INPUT BUFF COUNTER TO A 

9030 

CMP #$01 

i BUFF COUNTER=l? 

9090 

BNE ERAEN1 

i NO?GO TO END COMMAND 

9100 

LDA IBUFB 

j YES,GET CHAR 

9110 

CMP t$59 

1CHAR='Y'? 

9120 

BNE ERAEN1 

»NO,ERR. JUMP 

9130 

INC IBUFPA 

»PTR BUFF IN BUFF 

9140 DELEFI 

JSR FCBTOD 

5 FCB PTR RDE 

9150 

JSR DELFIL 

»DELECT FILE ,A=0"3IF SUCCESS 

9160 

CMP #$FF 

iRET OAL.=$FF IF FALSE 

9170 

BEG ERAEN2 

;false,jumf- 

9180 

JMP PEND 

isuccess,end 

9190 ERAEN1 

JMP START 


9200 ERAEN2 

JSR PRTER2 

;OUT 'NO FILE' 

9210 

JMP PEND 


9220 i *********************************************** 

9230 5* 

TYPE COMMAND 

HANDLE ROUTINE * 

9240 }*********************************************** 

9250 F'TYPE 

JSR FIFCBB 

?FILL FILE NAME IN FCB 

9260 

BNE TYPEN1 

J IF RET '?'COUNTOO, GO TO END 

9270 

LDA URKPLA 


9280 

JSR SELDSK 


9290 

JSR OPNFL 

JOPEN FILE 

9300 

BEG ERENDT 

i OPEN FALSE,JUMP 

9310 

JSR CRLF 

5SUCCESS,OUTPUT 'CR"LF' 

9320 WRTTP 

LDY #DMAD 


9330 

STY RHL 


9340 

LDY *DMAD/25 

6 

9350 

STY RHL+1 

5RHL POINTES DMAD 

9360 TPBEGN 

JSR RDSEQ 

i READ DISK 

9370 

BNE TEND 

,‘IF READ FALSE 

9380 

LDY *$00 


9390 MEDTY 

LDA (RHL),Y 

JGET CHAR 





9400 

CMP *$1A 

;char=ctl-z?jEof? 

f 9410 

BEQ BLNKT 

* YES 

1 9420 

STY RNU 


f 9430 

JSR C-HROUT 

5 NO j OUTPUT A CHAR 

9440 

JSR CSTATD 

5 GET CONSOLE STATUES 

1 9450 

BNE BLNKT 

5IF STATUESOOjGO end 

9460 

LDY RNU 


1 9470 

INY 


f 94S0 

CPY *$80 

1 TYPE 128 CHAR 

9490 

BNE MEBTY 

> NO » LOOP 

9500 

JMP TPBE6N 


9510 BLNKT 

JMF' PEND 


9520 TEND 

CMP *$01 

; '1'SHOWS EOF 

9530 

BEQ BLNKT 

?YES 

9540 

JSR F'RTERl 

i NO ? OUTPUT ' READ ERROR' 

9550 ERENBT 

NOP 


9560 TYF'ENl 

JMP CMBENIt 

? TO END ERR. COMMAND 

9570 BLNKS 

JMP SAEND 


9580 ******** * **** * % * % % * * * % * * * * * * 11 t * * * % * * * % * % * t 

9590 it 

SAME COMMAND 

HANDLE ROUTINE t 

96 00 **** 

*: * 11 * 1 ** * *1 * 11*1 % % % * % % % % % % % * * *1 % % * * * * % % 

9610 F'SAME 

JSR DI6HD 

5FILL PAGE NUMB. RET NUMBER 

9620 

PHA 


9630 

JSR FIFCBB 

1FILL FILE NAME IN FCBjRET'?# 

9640 

BNE TYF'ENl 

*'?'COUNT.<>0»ERR, GO ERR END 

9650 

LDA WRKPLA 


9660 

JSR SELDSK 


9670 

JSR FCBTOD 

?FCB POINTER TO RDE 

9680 

JSR DELFIL 

i DELECT FILE IF IT EXISTED 

9690 

JSR FCBTOD 

i 

9700 

JSR MAKFIL 

i MAKE FILE ? RET'0' IF FALSE 

9710 

BEQ BLNKS 

* FALSE?JUMP TO END 

9720 

LDA *$00 


9730 

ST A RUKF1 


9740 

STA FCBBD 

i CLEAR SOME PLACE 

9750 

CLC 


9760 

PLA 


9770 

STA RUK 


9780 

ADC RUK 

5 NUMB,*2 

9790 

BCC ENTR1 

i LOU BITS NO'C' JUMP 

9800 

INC RUKFI 

5ADD 'C' 

9810 ENTR1 

STA RUK 

j PAGE N*2 TO RUK 

9820 

LDA tSTRTD 


9830 

STA RDE 


9840 

LDA *STRTD/25 

6 

9850 

STA RDEF1 


9860 SAMBGN 

LDA RUK 


9870 

ORA RUKF1 

?CHECK PAGE NUMB.=0? 

9880 

BEQ SFINSH 

*yes?end 

9890 

LDA RUK 


9900 

SEC 


9910 

SBC *$01 


9920 

BCS ENTR2 


9930 

DEC RUKF1 



[ 9940 ENTiR2 

STA 

RWK 


[ 9950 

LDA 

*$80 

>128 BYTES 

9960 

CLC 



| 9970 

ADC 

RDE 

5 + 128 

f 9980 

STA 

RHL 


! 9990 

LDA 

RDE+1 


10000 

ADC 

*$00 


f 10010 

STA 

RHL+1 

5RHL F'OINTES NEXT RDE AG OR, 

10020 

JSR 

SETDMA 

5USINC RDE>SET DMA 

' 10030 

JSR 

FCBTOD 

5ROE F'OINTES FCB 

10040 

JSR 

WRSEQ 5 

WRITE SEQUANTIAL > RET O IF SUCCE 

10050 

BNE 

SAEND 

5WRIPA FALSE(ERRRRRR* AJD 

10060 

LDA 

RHL 


10070 

STA 

RDE 


10080 

LDA 

RHL + 1 


10090 

STA 

RDE+1 

5RDE F'OINTES NEW DIA ADDR, 

10100 

JMP 

SAVBGN 

5 LOOP 

10110 SFINSH 

JSR 

FCBTOD 

5RDE F'OINTES FCB 

10120 

JSR 

CLSFIL 

5CLOSE BILE 

10130 

CMP 

*$00 

5RETURN=0>CLOSE FALSE 

10140 

BNE 

SAEND2 

5 SUCCASS > JUMPT O — 

10150 SfiEND 

JSR 

CRLF 

5 OUTPUT 'CR''LF' 

10160 

LDA 

MSGAD5 


10170 

STA 

RHL 


10180 

LDA 

MSGAD5+1 


10190 

STA 

RHL+1 

5RHH POINPES 'NK SPACE' 

10200 

JSR 

STRIOB 

5OUT 'NO SPACE' 

10210 SAENB2 

JSR 

STDMAI 

5 INITIAL DMA ADDR, 

10220 

JMP 

PEND 


10230 ERENDZ 

JMP 

CMDEND 

5END ERR. 


10240 5 ********* ** * * * * * * * *** * *** * * * * * * * * * ** * * * * 
10250 5* REMAKE COMMAND HANDLE ROUTINE * 
10260 5 ******* * * * * * * * * * * * * * * ******** * * * * * * * * * * •* 


10270 F'REN 

JSR FIFCBB 

5FILL FILE NAME IN FCB>RET 

'?* 

10230 

BNE ERENDZ 

5 IF RET' ?'COUNTEROO> ERR . 


10290 

LDA WRKF'LA 

5REQUIRED DISK NO,TO A 


10300 

STA WRKF’LC 

5 SAME 


10310 

LDA FCBP 

5NO REPEAT NAME> 


10320 

STA RHL 



10330 

LDA FCBF’+l 



10340 

STA RHL+1 

5RHL F'OINTES NEW FILE NAME 

FCB 

10350 

LDA FCBF'C 



10360 

STA RDE 



10370 

LDA FCBF‘C + 1 



10380 

STA RDE+1 

5RDE F'OINTES TEMP,SAME ARE 


10390 

LDX *$10 

5X AS COUNTER FOR M0MING16 

CHA 

10400 

JSR BLKMOM 

5MOME NEW NAME TO TEMP,AREA 


10410 

LDA IBUFF'A 



10420 

STA RDE 



10430 

LDA IBUFF'A+1 

5 


10440 

STA RDE+1 

5RDE F'OINTES INPUT BUFFER 


10450 

JSR SKPBLK 

>TO SKIP ' ' 


10460 

CMP *$3D 

5CHAR='='? 


10470 

BEQ FIOLDN 

5 YES> JUMP TO FILL OLD NAME 




10430 

CMP *$5F 

$CHAR='<-'? 

[ 10490 

BNE ERENDN 

5NO.ERR, JUMP 

| 10500 FIOLDN CLC 


10510 

LDA RDE 


[ 10520 

ADC *$01 


10530 

ST A IBUFF'A 


' 10540 

LDA *$00 


10550 

ADC RDE + 1 


10560 

STA IBUFPA+1 

. »MODIFY IN-BUFF PTR 

10570 

JSR FIFCBB 

;fill old file name 

10580 

BNE ERENDN 

t RET '?'COUNT.<>0»ERR, 

10590 

LDA FCBBC 

JOLD DSK IN FCB 

f 10600 

BEQ USNEWN 


10610 

LDA FCBB 


' 10620 

BEQ USNEWN 

J(A)=0? GO? USE NEW FILE DSK 

10630 

LDA WRKPLA 


10640 

CMP WRKPLC 

»COMPARE NEW DSK WITH OLD D 

10650 

BNE ERENDJ 

5 ERR, 

10660 USNEWN 

LDA FCBBC 


10670 

ORA FCBB 


10680 

STA FCBB 


10690 

STA FCBBC 


10700 

LDA FCBPC 


10710 

STA RDE 


10720 

LDA FCBPC+1 


10730 

STA RDE+1 

>RDE PTR NEW FILE 

10740 

JSR SERFIL+3 

>SEACH NEW FILE 

10750 

BNE ERENDR 


10760 

JSR SERFIL 

i SEARCH FOR OLD NAME FILE 

10770 

BEQ PRTEND 

5SEARCH FALSE>'NO FIRE' 

10780 

JSR FCBTOD 

>SUCCESSfRDE POINT,FCB 

10790 

JSR RENFIL 

i RENAME FILE 

10800 

JMP PEND 

jNORMALLY END 

10810 PRTEND 

JSR PRTER2 

5OUTPUT 'NO FILE' 

10820 

JMP PEND 


10830 ERENDN 

JMP CMDEND 

»ERR. 

10340 ERENDR 

JSR CRLF 

>OUTPUT 'CR''LF ' 

10850 

LDA MSGAD7 


10860 

STA RHL 


10870 

LDA MS6AD7+1 

i 

10880 

STA RHL+i 

5RHL POINTES'FILE EXISTS' 

10890 

JSR STRIDE 

> PRINT 

10900 

JMP PEND 


10910 ERENDJ 

JMP CMDEND 

5END ERR, 

10920 

10930 it USER COMMAND ! 

HANDLE ROUTINE * 

10940 ;mmwmrmmmmmm*m******* 

10950 F'USER 

JSR DIGHD 

$ FILL 'DIGIT'IN FCB SCOUNT 

10960 

CMP *$10 

jUSER C0DE>=16? 

10970 

BCS ERENDJ 

5YESnERR, TO END 

10980 

LDX FCBBB 


10990 

CPX *$20 

SI'S CHAR=' '? 

11000 

BEQ ERENDJ 

1 YES»ERR. 

11010 

JSR SETCOD 

5SET USER CODE 




11020 BLKTR JMP PEND 

11030 ! % %%%% % % t i * 11 %%%% % % * * % t * % * % % % % % t % % % t % %%%% % % t 

11040 )% TRANSIENT PROGRAH COMMAND HANDLE ROUTINE 

11050 ! * * t * * % t % t % % * * * % ******* * * * * '* * * % * * * * * * * * % % * % 


f 11060 jf’TRANS 

LDA 

FC-BB 

!GET DSK NUMB, IN FCB 

I 11070! 

110S0 PTRANS 

LDA 

WRKPLA 



11090! 

STA 

DSKNUM 



11100! 

DEC 

DSKNUM 

? TO CHANGE CURRENT 

DISK 

11110! 

JSR 

WRTDKN 

/SAME CURRENT DISK 

*0004 

11120 JSR SELDSK 



11130 

LDA 

*FCBB 

5FCB ADDRESS 


11140 

STA 

RWK 



11150 

LDA 

*FCBB/256 



11160 

STA 

RWK+1 

!RWK PTR FCB 


11170 

JSR 

CKQUEN 

!COUNT'?' 


11180 

BNE 

ERENDJ 

* JUMP TO END ERR,COMMAND 

11190 

LDA 

IBUFPA+i 



11200 

PH A 




11210 

LDA 

IBUFPA 



11220 

PHA 




11230 FICOM 

LDA 

FCBB+9 

5 TYPE l'SCHAR 



11240 
11250 
11260 
11270 
11280 
11290 
11300 
11310 
11320 
11330 
11340 
11350 
11360 
11370 
11380 
11390 
11400 
11410 
11420 
11430 

11440 RBDSK 

11450 

11460 

11470 

11480 

11490 

11500 

11510 

11520 

11530 

11540 


CMP *$20 
BNE ERENDJ 
LDA PCBP 
CLC 

ADC. *$09 
STA RUE 
LDA *$00 
ADC FCBP+1 
STA RDE + 1 
LDA MSGDD9 
STA RHL 
LDA MSGDD9+1 


! RDE POINTES CFCBP+8) 


STA RHL + 1 
JSR MU3CHR 
JSR OPNFL 
BEQ BLKJ6 
LDA tSTRTD 
STA RUN 

LDA *STRTD/256 


5RHL POINTES 'COM' 
?FILL 'COM'IN FCB 
}OPEN FILE 
!OPEN FALSE»ERR. 

»OPEN SUCCESS» 


STA RWK+1 
LDA RWK 
STA RUE 
LDA RWK+1 
STA RDE+1 
JSR SETDMA 
JSR FCBTOD 
JSR RDSEQB 
BNE RDEND 
CLC 

LDA RWK 
ADC *$30 
STA RWK 


fRWK POINTES INPUT ADDR, 


i RDE POINTES INPUT ADDRESS 
J SET DMA 

JRDE POINTES FCB 
»READ SEQUENTIAL >RETO IF SUCCES 
1REAR FALSEjGO END 

!GET INPUT ADDR, 

! + 128 BYTES 





1 11560 

LDA 

*$00 


I 11570 

ADC 

RUK+1 


1 11580 

STA 

R LI K -T1 

5RUK SAME NEW INPUT ADDR. 

1 11590 

CMP 

*$B0 

5CHECK OVER LOAD? 

1 11600 

ECS, 

BLKJ7 

5 OVER»ERR. 

1 11610 

JMP 

RDDSK 

5 NO t LOOP 

1 11620 BLKJ6 

JHP 

PRTERB 


I 11630 BLKJ7 

JMP 

PRTERP 


1 11640 RDE NO 

CMP 

*$01 

5CHECK EOF? 

| 11650 

BNE 

BLKJ7 

5 NO»ERR. 

1 11660 

JSR 

FIFCBB 

5FILL FILENAME FOLLOWING COMMA. 

[ 11670 

INC 

URKPLA 


| 11680 

LDA 

URKPLA 

5FIRST FILE DSK TO A 

[ 11690 

STA 

FCBB 

5FILL 

11700 

STA 

RUG 

5 SAVE 

| 11710 

LDA 

*$10 

5FOR FILLING SECOND FILE NAME 

| 11720 

JSR 

FIFCB 

5SECOND FILE NAME TO FCB 

[ 11730 

LDA 

RUG 

5FIRST FILE DISK TO A 

I 11740 

STA 

FCBB+16 

5AS SECOND FILE DISK 

11750 

LDA 

*$00 


11760 

STA 

FCBB+32 

5CLEAR A BYTE 

11770 

LDA 

*$10 


11780 

STA 

RDE 


11790 

LDA 

*$EF 


11800 

STA 

RDE+1 

5RDE PTR $EF10 FOR 2'S FILE NAM 

11810 

LDA 

FCBP 


11820 

STA 

RHL 


11830 

LDA 

FCBP+1 


11340 

STA 

RHL + 1 

5RHL POINTES FCB 

11850 

LDX 

*$21 

5X AS COUNTER FOR 33CHAR 

11860 

JSR 

BLKMQV 

5 MOVE FROM FCB TO NEW SAVE AREA 

118705 




118805 




118905 




119005 




119105 





119205 


11930 

PLA 



11940 

STA 

RHL 


11950 

PLA 



11960 

STA 

RHL+1 

5RHL POINTES INPUT BUFFER 

11970 

LDY 

*$00 


11980 FNBLK 

LDA 

(RHL),Y 

5 GET CHAR 

11990 

BEG 

MVEND 


12000 

CMP 

*$20 

5 CHAR=' V 

12010 

BNE 

NEWLIN 

5 Y i JMP 

12020 

LDA 

*$01 


12030 

JSR 

FIFCBM 

5 RHL + 1 

12040 

JMP 

FNBLK 

5 LOOP 

12050 NEWLIN 

LDX 

*$00 5 

INITIAL COUNTER X=0 

12060 

LDA 

*DMAD 


12070 

STA 

RDE 


12080 

LDA 

♦DMAD/256 

12090 

STA 

RDE + 1 



5RDE F'TR $E965 FOR SAVING OTHER 


12100 INC RDE 

LDY *$00 

f 12120 MVSTAR LDA (RHL)?Y 


I 12130 
12140 
12150 
12160 
12170 

12180 MV END 

12190 

12200 

12210 


STA (RDE)? Y 5 MOVE A CHAR 

BEQ HVEND »IF CHAR=0?ST0P MOVING 

I NX 5 COUNTER X+l 

INY 

JMP MVSTAR ?LOOP 


12180 HVEND TXA 
12190 LDY *$00 

12200 DEC RDE 

12210 STA (RDE)jY ?$E965 SAVE INFO, COUNTER 

12220?FROM $E966 TO E966KE965 COUNT) SAVE ALL PARAME, 
12230JFROM $EF10 TO EF30 SAVE SAVE TWO COMMAND INCL.DSK 

1 224 0 ? V H N H H " H H * H h H H * H N * H N ' N M H N N H H N N H N N H -V H H N M Si H H H N M H H .v H 

12250 5 * * t i 11 % % % * 4 1 tt * * % % *********** % * % % * **•*•* * * * # % # % % # % 
12260 JSR CRLF 5 OUTPUT 'CR"LF' 

12270 JSR STDMAI 5 SET DMA=DMAD 

12280 EXECUT JSR STRTD iGO TO EXECUTE PROGRAM 

■2290 LDA DSKNUM 5 CURRENT DISK 

2300 JSR SELDSK 5SELECT CURRENT DISK 


12260 
f 12270 
12280 EXECUT 
12290 
12300 
12310 

12320 PRTERS 
12330 

12340 PRTERP 
12350 
12360 
12370 


JMP START 
NOP 

JMP CMDEND 5 ERR.END 


JSR CRLF ? 
LDA MSGBA2 
STA R HL 
LDA MS6BA2I1 


fOUTPUT 'CR‘ 


12380 

STA 

RHL + i 

5RHL POINTES 'BAD LOAD 

12390 

JSR 

STRIDE: 

?PRINT 

12400 

JMP 

PEND 


12410 PEND 

JSR 

FIFCBB 

?FILL REMAIN SOMETHING 

12420 

LDA 

FCBBB 

5GET CHAR FROM FCB 

12430 

SEC 



12440 

SBC 

*$20 

?SUB ' 'VALUE 

12450? 

OR4 

1 WRKPLA 


12460 

BNE 

PENER 

? (A)O0?ERR,END 

12470 

JMP 

START 

5END NORMALLY 

12480 PENER 

JMP 

CMDEND 

5 


12490 

12500 

12510? 

12520 5 

12530? 

12540? 

125505 


MSGVER ,BYTE 'Q.U.6502 CP/M VERSION'?$OD?$OA 
.BYTE ' DIR ERA TYPE SAVE REN BI',$00 


12560 RDERR .BYTE 'READ ERROR'?$00 
12570 NOFERR .BYTE 'NO FILE'?$00 
12580 MSGADI .BYTE 'ALL <Y/N)?',$00 
12590 MSGAD4 .BYTE 'NO SPACE'?$00 
12600 MSGAD6 .BYTE 'FILE EXISTS',$00 
12610 MSGDD8 .BYTE 'COM' 

12620 MSGBA1 .BYTE 'BAD L0AD'?$00 
12630 .END 


Appendix B3 : Listing of BODS 


12440 

;0Up/h bugs written by shao> .jian - xiong 

f 12650 

i ERROR NO. LISTING 

[ 12640 

1$02 DISK NO, 

TOO LARGE 

[ 12670 

? $03 FUNCTION 

NO. TOO LARGE 

124S0 

>$04 DISK WRITING PROTECTION 

1 12690 

1$05 DUPLICTED 

i FILE WHEN HAKE FILE 

| 12700 

5$06 CHECK ARE 

A NOT HATCH 

12710 

>$0? FILE WRITING PROTECTION 

[ 12720 

>$08 FILE NOT 

OPEN 

12730 

*=$B93A 


12740 

START=$00 

1UARH BOOT ADDR, 

12750 

I0BYTE=$03 

51/0 BYTE 

12760 

CREG=$08 

5WORK STORAGE 

12770 

DEREG=$G9 


12780 

HLR£G=$0B 


12790 

HLREG1=$0D 


12800 

USERSP=$1G 


12810 

RTNFLG=$18 

i RETURN FLAG 

12820 

TEHF'=$ IF 


12830 

CRTDRN=$25 

>'DR' RESERVATION 

12840 

SCNPTS=$38 

»SCREEN LINE START POINTER 

12850 

CHRNUB=$3E 

5CHAR, NOS IN INPUT BUFFER 

12860 

CSBUF3=$3F 

>OFFSET OF LAST CHAR TO 

12870 


>STARING ADDRESS OF THE BUFFER 

12880 

COUNT=$30 


12890 

BRHT AB=$DBC3 

>BDOS 

12900 

ADC0FS=$DC80 


12910 

STRTFG=$DFDA 


12920 

RETURN=$£3D8 


12930 

R$TURN=$E3EE 


12940 

WB00T=$E477 

1 BIOS 

12950 

CSLTET=$E560 


12960 

CLINN=$E57A 


12970 

CL0UTT=$£5?1 


12930 

LITQUT=$E5A9 


12990 

ERR0R=$E928 


13000 

BANBAC .BYTE 

$00 »NO, COUNTER OF BACK SPACE 

13010 

PRTFLG .BYTE 

$00 JPRINTER ON/OFF FLAG 

13020 

SCNF'NT .BYTE 

$00 >SCREEN LINE COUNTER 

13030 

PRECHR .BYTE 

$00 5PREVIOUS CHARACTER 

13040 

WHBCOT .BYTE 

$2D > 

13050 ; 



13060 

BDOS=* 


13070 ; 



13080 

STX CREG 

>STORE PARAHETERS 

13090 

STA DEREG 


13100 

STY DEREG+1 


13110 

LDA *$00 

>INIT. SOHE LOCATIONS FOR 

13120 

STA CRTDRN 

5 RETURN ROUTINE 

13130 

STA RTNFLG 


13140 

STA RTNFLGF1 

13150 

STA RTNFLG+ 

2 



1 13160 

LDA 

4RETURN-1/256 


13170 

PHA 


5SET RETURN ROUTINE ADDR. 

13180 

LDA 

♦RETURN-1 


13190 

PHA 



13200 

LDA 

CREG 

)CHECK FUNCTION NO, LEGALITY 

13210 

CMP 

*$29 


13220 

BCC 

B$OS 


13230 

LDA 

*$03 

$ IF ILLEGAL? ERR! 

13240 

JMP 

ERROR 


13250 

B$QS=4 



13260 

ASL 

A 

5GET DESIRED ROUTIN 

13270 

LDX 

♦BRHTAB 

>ADDRESS FROM BRHTAB 

13280 

STX 

HLREG 


13290 

LDX 

♦ BRHT AB/256 


13300 

STX 

HLREG+1 


13310 

LDY 

*$00 


13320 

STY 

TEMP 


13330 

JSR 

ADCOFS 


13340 

LDA 

(HLREG)»Y 


13350 

STA 

HLREG1 


13360 

I NY 



13370 

LDA 

(HLREG)»Y 


13380 

STA 

HLREG1+1 


13390 

LDA 

DEREG 


13400 

JMP 

(HLREG!) 

jJMPE TO DESIRED ROUTINE 

13410 

REV14= 

4440 



13420 5 

13430 > 44444444 4 44 4 4 4 4 4 4 4 4 4 444 4 4 4 4 4 4 4 44444444 4 * 1 444 4 4 * 4 4 4: 4 * 4 4 4 


13440 5 4 4 

13450 ! 4 FUNCTION 0 1 SYSTEM RESET 4 

13460 1 4 4 

13470 ; 44444444 4 4 4 44 4 4 4 4 4 4 4 4 4 4 4 4 4 44444444 4 4 4 44 4 4 4 4 4 4 4 4 4 4 4444 4 4 

13480 5 4 4 

13490 } 4 ENTRY PARAMETERS 1 4 

13500 J 4 REGISTER X l $00 4 

13510 j 4 4 


13520 ? 4444444444444444444444444444444444444444444444444444444 
13530 } 

13540 SYMRST=4 

13550 } 

13560 JMP WBOQT 

13570 } 

13580 INCHR=4 »GET A CHARACTER FROM CONSOLE 

13590 ; 

13600 LDA PRECHR 

13610 BEQ I$CHR 

13620 LDX #$00 

13630 STX PRECHR 

13640 RTS 

13650 I$CHR=4 

13660 LDX *$00 

13670 STX PRECHR 

13680 JMP CLINN 

13690 RESV24=4+4 


13700 ; 

13710 i Utt % % % * 11 '* t * % * * * * 111 % * % % % %%%% t * 111 % $ 11 % % % % % % % % % * % % % % 


13720 ) t 


% 

f 13730 > i 

FUNCTION 1 J CONSOLE INPUT * 

13740 > t 


t 

‘ 13750 f % t % % t % % 11 % % % 1%11 % % % t 

% % %%%%%%11% %11*111% % %%%%%%%% %t% %t 

13760 ; * 


% 

13770 5 * 

ENTRY PARAMETERS 

1 % 

13780 ; t 

REGISTER X 

1 $01 t 

13790 ; * 


t 

13800 1 * 

RETURNED VALUE 1 

% 

13810 1 * 

REGISTER A 1 

ASCII CHARACTER % 

13820 ; * 


% 

13830 ; ttttttt % t % % 111 % % % % % % % % % %%%%%%%% % % % % %%%% t # % * * % % % % ■* * % % * 

13840 > 

13850 

CSLIN=* 


13860 ; 

13870 

JSR INCHR 

jGET A CHAR FROM CONSOLE 

13880 

JSR C$LIN 

»HANDLING CONTROL CHARACTER 

13890 

BCC CS$IN 

5 IF CONTROL CHAR EXCEPT 

13900 


5 * CR*»* LF *»* BA*»* TAB *»THEN RETURN 

13910 

PHA 


13920 

JSR CSLOUT 


13930 

PL A 


13940 

CS$IN=* 


13950 

JMF’ STRTF6 


13960 

C$LIN=* 


13970 

CMP *$OD 

5 *CR*? 

13980 

BNE CSLIN1 


13990 

RTS 


14000 

CSLIN1=* 


14010 

CMP #$OA 

»'LF*? 

14020 

BNE CSLIN2 


14030 

RTS 


14040 

CSLIN2=* 


14050 

CMP *$09 

»"TAB 1 ? 

14060 

BNE CSLIN3 


14070 

RTS 


14030 

CSLIN3=# 


14090 

CMP *$08 

>‘BA*? 

14100 

BNE CSLIN4 


14110 

RTS 


14120 

CSLIN4=$ 


14130 

CMP *$20 


14140 

RTS 


14150 ; 

14160 

INTPHD=* 

5 INTERRUPTING CHAR HANDLING 

14170 i 

14180 

LDA F'RECHR 

5CHECK IF THERE IS A PREVIOUS CHAR 

14190 

BNE INTPH$ 


14200 

JSR CSLTET 

»TEST IF CONSOLE IS READY 

14210 

AND *$01 


14220 

BEQ I$TPHD 


14230 

JSR CLINN 

iIF READY i READ A CHAR. 



14240 
14250 
14260 
14270 
14280 
14290 
14300 
14310 
14320 
14330 
14340 
14350 
14360 
14370 
14380 
14390 
14400 
14410 
14420 i 
14430 
14440 } 
14450 
14460 
14470 
14480 
14490 
14500 
14510 
14520 
14530 
14540 
14550 
14560 
14570 
14580 
14590 
14600 
14610 
14620 
14630 
14640 
14650 
14660 
14670 
14680 
14690 
14700 
14710 
14720 
14730 
14740 
14750 
14760 
14770 


CMP 

*$13 

1CONTRQL-S? 

BNE 

IN$PHD 


INT$HD= 

■* 


JSR 

CL INN 

JIF IT IS CONTROL-S,WAIT UNTIL NEXT 
5CHAR COMING IN* 

CMP 

*$03 

j CONTRGL-C? 

BNE 

INTP$D 


JMP 

$0000 

i IF IS, TO WARM BOOT 

INTP$D= 

■% 


LDA 

$00 

* IF ANOTHER CHARACTER,RETURN 

RTS 

IN$F'HD= 

* 


STA 

PRECHR 

5WHEN FIRST RENDING IS NOT CTRL-S 
»STORE IT TO F'REU. CHAR* LOCATION 

INTF‘H$ = 
LDA 

* 

*$FF 


I$TF'HD= 

RTS 

* 


OUTCHR= 

■i- 

T- 

;OUTPUT A CHARACTER 

PHA 



LDA 

BANBAC 

5 TO SEE IF THIS IS FROM 5 BA' 

BNE 

0$TCHR 

JIF IS,NOT OUTPUT TO CSL 

JSR 

INTF'HD 

5HANDLING INTERUPTING CHAR, 

F'LA 



PHA 



JSR 

CLOUTT 

5OUTPUT TIS CHAR TO CONSOLE 

PLA 



PHA 



LDX 

F'RTFLG 

5 TO SEE IF PRINTER 

BEQ 

0$TCHR 


JSR 

LITOUT 

5IF ONjALSO sent to printer, 

0$TCHR= 

PLA 

% 


CMP 

*$7F 

5IF IS 'DEL* »RETURN»THAT IS, NOT 
j INCREASING SCNF'NT 

BNE 

RTS 

OU$CHR= 

OU$CHR 

t 


INC 

SCNF'NT 

jIF IT LESS THAN $7F,GREATER THEN 
5EQUAL TO $20, SCNF'NT INCREASED 
i BY 1 

CMP 

*$20 


BCC 

OUT $HR 


RTS 

OUT$HR= 

* 


DEC 

SCNF'NT 

5 IF IT IS CTRL CHAR.,THAT IS, LESS 
jTHAN $20 

LDX 

SCNF'NT 

5THEN, NOTCHANGE SCNF'NT 

BNE 

OUTC$R 


RTS 

QUTC$R= 

* 


CMP 

*$08 

»IF IS * BA", SCNF'NT DECREASED BY 1 



14780 
14790 
14800 
14810 
14820 
14830 
14840 
14850 
14860 
14870 
[ 14880 
14890 
14900 
14910 
14920 
14930 
14940 
14950 
14960 
14970 
14930 
14990 1 
15000 • 
15010 1 
15020 » 
15030 ; 
15040 i 
15050 ; 
15060 i 
15070 1 
15080 } 
15090 } 
15100 1 


BNE 
DEC 
RTS 

0UTCH$=4 


OUTCH$ 

SCNF’NT 


CMP 

*$0A 

5 IF IS 1 LF'»SCNF'NT SHOULD BE SET 

BNE 

OUTC-$$ 

»TO ZERO 

LDA 

*$00 


STA 

SCNF'NT 


OUTC$$ 

=4 


RTS 

CSLOU$: 

= 4 


JSR 

CILIN 

5 DISTINGUISH CTRL l NO-CTRL CHAR 

BCS 

CSLOUT 

>EXCEPT 1 CR 1 » 1 LF 1 » 1 BA‘?'TAB' 

PH A 

LDA 

*$5E 

? IF CTRL CHAR? OUTPUT FOLLOWED 

JSR 

OUTCHR 

? BY A CHAR CORRESf THIS DESIRED 

1 CONTROL CHARACTER 

PLA 

ORA 

*$40 



444 11 4 4 % 11 % % 4 4 4 4 t % 4 4 % 4 4 % 4 4 % 4 % 4 4 4 4 * 4 '4: '4 4 '4 4 4 4 4 44 * 4 4 % 4 4 '4 % 4 4 t 
4 4 
4 FUNCTION 2 I CONSOLE OUTPUT 4 
* * 
4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 444 4 4 4 4 4 4 4 4 4 44 44 4 4 4 4: 4 4444 4444 4444 4 4 4 4 4 4 4 


4 

4 

4 

4 

4 


ENTRY PARAMETERS 
REGISTER X 
REGISTER A 


$02 

ASCII CHARACTER 


4 

4 

4 

4 

4 


44 4 44444 4 4 4 4 4 4 4 4 4 4 44 4 4 4 4 4 4 4 4 4 4 4444444444 4 4 4 4 44444 444444 4 


iCHECK FOR * TAB' 


15110 




15120 


CSLOUT 

=4 

15130 

? 



15140 


CMP 

*$09 

15150 


BEQ 

C$LOUT 

15160 


JMP 

OUTCHR 

15170 


C$LOUT 

=4 

15180 


LDA 

*$20 

15190 


JSR 

OUTCHR 

15200 


LDA 

SCNF'NT 

15210 


AND 

*$07 

15220 


BNE 

C$LOUT 

15230 


RTS 


15240 


RESU4= 

4+1 

15250 

9 



15260 

9 



15270 

9 



15280 

9 



15290 

9 



15300 

9 



15310 

9 




5 IF IS 'TABSOUTPUT SOME SPACE TO 
5FIT THE NEEDS OF THE 'TAB' 


15320 i 444 4 % 4 4 44 4 4 4 % 4 4 4 4 % 4 4 4 4 4 4 4 % 4 4 4 4 4 4 % 4 4 4 44 4 4 * 4444 4 4 4 * 444 4 4 

15330 ! t t 

15340 ; 4 FUNCTION 3 1 LIST OUTPUT 4 

% t 

4444 444 4 4 4 4 44444 4 4 4 4 4 4 4 4 4 444 4 4 4 4 4 4 4 4 4 4 4444 44 4 4 4 4 4 4 4 4 4 * 
4 * 

* ENTRY PARAMETERS 1 4 

* REGISTER X t $03 * 

4444 % 4 4 44 4444 4 4 4 4 44 4 4 4 4 % 4 444 4 4 4 4 4 4 4 4 4 4 '4c 4c '4c 4 4 4 4 4 4 4444 4 c#c 4: 


LIT0TT=4 


15430 i 

15440 JMP LITOUT 


15450 1 

15460 » 4 4c 4c 4c 4 4: 4 4 4c 4 4c 4c '4 4c 44 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4444 4 4 4 4 4 4 4 


15470 i 4 4 

15480 i 4 FUNCTION 4 1 DIRECT CONSOLE I/O 4 

15490 ! 4 4 

15 5 0 0 f 44444 4 4 4 4 4 4 4 4 444 4 4 4 4 4 4"4 4 4 4 444 4 4 444 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 44 4 4 

15510 ; 4 4 

15520 5 4 ENTRY PARAMETERS 1 4 

15530 ? 4 REGISTER X 1 $04 4 

15540 ! 4 REGISTER A 1 $FF (INPUT) OR CHAR(OUTF'UT) 4 

15550 1 4 4 

15560 ; 4 RETURNED VALUE *, 4 

15570 1 4 REGISTER A 1 CHARACTER OR STATUS 4 

15580 4 4 


15590 1 44444 44 4 4 44 4 4 4 4 4 4 4 44 4 4 4 44444 4 4 44444 4 444444 4 44 4 4 4 4 44 4 4 4 4 
15600 ; 

15610 DRCSI0=4 

15620 5 

15630 TAX 

15640 INX 

15650 BEG D$CSIO 

15660 JMP CLOUTT 

15670 D$CSI0=4 

15680 JSR CSLTET 

15690 AND *$01 

15700 BEQ DR$SI0 

15710 JSR CLINN 

15720 DR$SI0=4 

15730 JMP STRTF6 

15740 REESM4=4+3 

15750 5 
15760 I 
15770 f 
15780 > 

15790 5 
15800 ; 

15810 ; 

15820 j 
15330 ; 

15840 ; 

15850 » 


5CHECK FOR INPUT OR OUTPUT 

5OUTPUT THIS CHARACTER 

5TEST IF CONSOLE IS READY INPUT 

JIF NOT READY,RETURN 
i INPUT A CHARACTER 




15660 i nnntttttttt * % % % % 11 * t % t % * * * t % % 4 * * % % * 4 * * 4 % * t % % % 4 4 11 % * % % 


15870 ; * % 

15880 ; 4 FUNCTION 5 1 BUFFER OUTPUT * 

15890 1 * 4 

15900 ! 4444444444 4 4 4 4 4 4 4 * 44 4 % 4 4 4 4 4 4 4 4 44 4 % % 4 4 4 % % 4 4 4 4 % 4 444 4 4 4 4 4 4 % 


15910 5 * * 

15920 i * ENTRY PARAMETERS 1 * 

15930 I 4 REGISTER X t $05 4 

15940 i 4 REGISTER Y> A1 STARTING ADDRESS OF THE BUFFER 4c 

15950 ! 4 * 


15960 ; 444444444 44 4 4 4 4 4 4 4 4 4444 4 444 4 44 4 4 4 * 4 4 4 4 4 444444 4 4 4 4 4444 4 4 4 

15970 » 


15980 

15990 ; 

GUTBUF=4 


16000 

LDY *$00 


16010 

0U$BUF=4 


16020 

LDA (DEREG)jY 


16030 

CMP *$24 

.;■$’? 

16040 

BNE 0$TBUF 

»IF IS, END 

16050 

RTS 


16060 

G$TBUF=4 


16070 

JSR CSLOUT 

5 IF NOT,OUTPUT THIS CHARACTER UNTIL 

16080 


»$ IS MET. 

16090 

INY 


16100 

BNE OUIBUF 


16110 

INC DEREG+1 


16120 

16130 5 

BNE 0U$BUF 


16140 

16150 1 

BKSF'AC=4 

5BACK SPACE ONE CHARACTER 

16160 

JSR B$SPAC 


16170 

LDA *$20 


16180 

JSR CLOUTT 


16190 

B$SPAC=4 


16200 

LDA *$08 


16210 

16220 i 

JMP CLOUTT 


16230 

NWLNHD=4 

5POSITION CURSOR TO THE LOCA. OF NEW 

16240 


JLINE CORRESPONDING TO THE ORIGINAL 

16250 


JPOSITION IN CURRENT LINE 

16260 

LDA *$23 

5OUTPUT * TO ENDED CURRENT LINE 

16270 

JSR OUTCHR 


16280 

JSR CRLFHD 

5CURSOR TO A NEW LINE 

16290 

NU$NHD=4 


16300 

LDA SCNPNT 

5POSITION CURSOR TO THE LOCA. 

16310 


»CORRESPONDING THE ORIGINAL ONE 

16320 

CMP SCNPTS 


16330 

BCC N$LNHD 


16340 

RTS 


16350 

N$LNHD=4 


16360 

LDA *$20 


16370 

JSR OUTCHR 


16380 

16390 ; 

JMP NW$NHD 



CRLFHD=* ICR AND LF HANDLING 

14410 ; 

14420 LDA *$OB 

JSR OUTCHR 
14440 LDA *$0A 

14450 JHP OUTCHR 

14440 t 

14470 ; ****** % * * * % ** * % * *** t * * * * * ****** * * * * * * * * * * * ***** * * * * * * * * 


14480 1 * * 

14490 » * FUNCTION 6 1 READ CONSOLE BUFFER * 

14500 ! * * 

14510 1 ******* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ****** * * * * * * * * * 

14520 5 * * 

14530 ! * ENTRY PARAMETERS 1 * 

14540 S * REGISTER X 1 $06 * 

14550 ! * REGISTER YjAI STARTING ADDRESS OF THIS BUFFER * 

14560 i * * 

16570 1 * RETURNED VALUE 1 * 

16580 I * CONSOLE CHARACTERS IN THE BUFFER * 

16590 5 * * 


16600 i ******************************************************* 

16610 i 

16620 RDCSBF-* 

16630 ? 


16640 

CLD 



16650 

LDA 

SCNF'NT 

»STORE THE INITVALUE OF SCREEN 

16660 



1LINE POINTER TO SCREEN STAR POINTER 

16670 

STA 

SCNF'TS 


16680 

LDA 

*$00 


16690 

LDY 

*$01 


16700 

STA 

CHRNUB 

5KEEP COUNTER OF CURRENT CHAR.S 

16710 

STY 

CSBUFS 

5AND OFFSET OF THE LAST CHAR TO START 

16720 



5ADDRESS OF THE BUFFER, 

16730 

RD$SBF 

= * 


16740 

JSR 

INCHR 

56ET A CHARACTER 

16750 

AND 

*$7F 


16760 

CMP 

*$OB 

5 *CR*? 

16770 

BEQ 

RD$$$F 


16780 

CMP 

*$OA 

; *LF‘? 

16790 

BNE 

RDC$$$ 


16800 

RD$$$F : 

=* 


16810 

JMP 

RDC$$F 


16820 

RDC$$$ : 

=* 


16830 

CMP 

*$08 

5‘BA*? 

16840 

BNE 

RDC$BF 


16850 

LDA 

CHRNUB 

5"BA" HANDLING 

16860 

BEG 

RD$SBF 


16870 

DEC 

CHRNUB 

»COUNTER DECREASE BY 1 

16380 

LDA 

SCNF'NT 

JSTORE SCREEN LINE POINTER 

16890 

STA 

BANBAC 

»TO BACK SPACE NUMBER ACCOUNTER 

16900 

JMP 

RD$$BF 


16910 

RDC$BF : 

=* 


16920 

NOP 



16930 

CMP 

*$7F 

> ‘DEL’? 


16940 
16950 
16960 
16970 
16980 
16990 
17000 
17010 
17020 
17030 
17040 
17050 
17060 
17070 
17080 
17090 
17100 
17110 
17120 
17130 
17140 
17150 
17160 
17170 
17180 
17190 
17200 
17210 
17220 
17230 
17240 
17250 
17260 
17270 
17280 
17290 
17300 
17310 
17320 
17330 
17340 
17350 
17360 
17370 
17380 
17390 
17400 
17410 
17420 
17430 
17440 
17450 
17460 
17470 


BNE 

RDCStF 

LDX 

CHRNUB 

BEQ 

RD$SBF 

DEC 

CHRNUB 

DEC 

CSBUFS 

JMP 


RDCSiF 

=* 

CMP 

*$05 

BNE 

RDCSB$ 

JSR 

CRLFHD 

LDA 

*$00 

STA 

SCNF'TS 

JMP 

RD$SBF 

RDCSBf 


CMP 

*$10 

BNE 

R$$SBF 

LDA 

*$80 

EOR 

F'RTFLG 

STA 

F'RTFLG 

JMP 

RD$SBF 

R$$SBF 

=t 

CMP 

*$18 

BNE 

R$C$BF 

RDCSBi 

=t 

LDA 

SCNF'TS 

CMP 

SCNF’NT 

BCS 

RDCSBF 

DEC 

SCNPNT 

JSR 

BKSF'AC 

JMP 

RDCSBI 

R$C$8F 

= * 

CMP 

*$15 

BNE 

R$CS$F 

JSR 

NWLNHD 

JMP 

RDCSBF 

R$CS$F : 

=* 

CMP 

*$12 

BNE 

R$CSB$ 

RD$$BF : 

=* 

JSR 

NWLNHD 

LDY 

*$01 


STY 

CSBUFS 

LDA 

CHRNUB 

STA 

TEMP 

RDCSB2 

=* 

BEQ 

RD$S$F 

INC 

CSBUFS 

LDY 

CSBUFS 

LDA 

(DEREG) 

JSR 

CSLOU$ 


j NUMBER ACCOUNTED AND BUFFER 
i OFFSET DECREASE BY 1 TO ELIMINATE 
5 THE LAST WORD 


SCONTROL-E? 

9 GIVING A * CR'> * LF'COMMAND 
9SET SCREEN START POINTER TO ZERO 

5GET NEXT CHARACTER 

«CONTROL-F'? 

5 REVERSE THE PRINTER FLAG 

9 GET NEXT CHARACTER 
j * CONTROL-X * ? 


9KEEP BACKING SPACE UNTIL THE START 
9 POSITION OF CURRENT LINE ARRIVED 


5'CONTROL U'? 
j CREATE A NEW LINE 


5•CONTROL-R*? 


5NEW LINE HANDLING 
j ST ART TO WRITE A NEW LINE FROM THE 
»FIRST CHARCACTER OF CURRENT LINE IN 
9CONSOLE BUFFER 


9INCRE. OFFSET TO WRITE NEXT CHAR 


9WRITE NEXT CHARACTER 


1 17480 

DEC 

TEMP 

I 17490 

JMP 

RDCSB2 

I 17500 

RD$S$F= 

■T* 

1 17510 

LDA 

BANBAC 

I 17520 

BNE 

RDCSB5 

I 17530 

JMP 

RD$SBF 

1 17540 

RDCSB5= 

*r- 

I 17550 

SEC 


I 17560 

SBC 

SCNPNT 

1 17570 



I 17580 



17590 

STA 

BANBAC 

I 17600 

RDCSB3= 

* 

f 17610 

JSR 

BKSPAC 

17620 

DEC 

BANBAC 

17630 

BNE 

RDCSB3 

17640 

JMP 

RD$SBF 

' 17650 

R$CSB$= 

* 

17660 

INC 

CSBUFS 

17670 

LDY 

CSBUFS 

17680 

STA 

(DEREG) t Y 

17690 



17700 

INC 

CHRNUB 

17710 

RD$SB$= 

* 

17720 

PHA 


17730 

JSR 

CSLOU$ 

17740 

F’LA 


17750 

CMP 

t$03 

17760 

BNE 

RDCSB4 

17770 

LDA 

CHRNUB 

17780 

CMP 

*$01 

17790 

BNE 

RDCSB4 

17800 

JMP 

$0000 

17810 



17820 

RDCSB4= 

* 

17830 

NOP 


17840 

NOP 


17850 

LDY 

*$00 

17860 

LDA 

(DEREG)>Y 

17870 

CMP 

CHRNUB 

17880 

BEQ 

RDC$$F 

17890 

JMP 

RD$SBF 

17900 

RDC$$F= 

* 

17910 

LDY 

*$01 

17920 



17930 

LDA 

CHRNUB 

17940 

STA 

(DEREG)iY 

17950 

JMP 

CRLFHD 

17960 ; 



17970 5 



17980 5 



17990 ; 



18000 ; 



18010 ; 




jIF AL CHAR HAVE RETYPED»CHECK FOR 
i IF BANBAC=0 


;to find the difference no, between 

5CURRENT ACCOUNTER AND PREVIOUS 
>ACCOUNTER 


5BACK SPACE UNTIL CURRENT ACCOUNTER 
i MATCHING PREVIOUS ONE 


* SET UFFSET TO CURRENT CHAR. 

5 STORE THE CHAR INTO CORRESPONDING 
jLOCATIONN 

i INCREASING CHR NUMBER 1 


5 TYPE IT 

>CHECK FOR CONTROL-C 


»IF IS CTRL-C AND IN STARTING 
5 POSITIONED TO WARM BOOT 


iTO COMPARE CHAR NO. WITH MAX NO. 


5IF LESS THANEET next char. 

5STORE CHR NO. TO CONSOLE BUFFER 
5WHEN RETURN 



18020 I ****************** 1 ** * % t % * % z % t ****** * * * ****** * * * * * * * * * * 

18030 J * * 

18040 ! t FUNCTION 7 1 GET INPUT/OUTPUT BYTE * 

18050 ) i * 


18 0 6 0 } ************** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 

18070 i * * 


18080 > t ENTRY PARAMETERS 1 * 

18090 ; * REGISTER X 1 $07 * 

18100 » * * 

18110 » * RETURNED VALUE 1 * 

18120 1 * REGISTER A 1 INPUT/OUTPUT BYTE VALUE * 

18130 i * * 


1S14 0 1 ******** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ****** * * * * * * * * * * 

18150 > 

18160 GTIOBY=* 

18170 i 

13180 LDA IOBYTE 

18190 JMP STRTFG 

18200 » 


18210 } ******** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 


18220 1 * * 

18230 j * FUNCTION 8 5 SET INPUT/OUTPUT BYTE * 

13240 5 * * 

18250 ! *********** * * * * * * * * * * * * * * * * * * * * * ****** * * * * * * * * ******** * 

18260 1 * * 

18270 i * ENTRY PARAMETERS 1 * 

18280 ? * REGISTER X 1 $08 * 

18290 1 * REGISTER A 1 INPUT/OUTPUT BYTE VALUE * 

1S300 5 * * 


18310 1 * * * * * * * * ********* * * * * * * * * * * * * ** * * * * * * * ******* ********* * 
18320 5 

18330 STIOBY=* 

18340 5 

18350 STA IOBYTE 

18360 RTS 

18370 5 


18380 > ******************************************************* 


18390 1 * * 

18400 5 * FUNCTION 9 1 GET CONSOLE STATUS * 

18410 ; * * 

18420 i ******************************************************* 

18430 i * * 

18440 5 * ENTRY PARAMETERS 1 * 

18450 » * REGISTER X 1 $09 * 

18460 5 * * 

18470 t * RETURNED VALUE 1 * 

18480 i * REGISTER A 1 CONSOLE STATUS * 

18490 5 * * 


18500 J ******************************************************* 
18510 ; 

18520 GTCLST=* 

18530 , 

18540 
13550 


JSR 

JMP 


INTF'HD 

STRTFG 




f 18560 

*=$DBCO 


18570 

START=IOO 


18580 

CREG=$08 


18590 

DEREG=$09 


18600 

HLRE6=$0B 


18610 

HLRE61=$0D 


18620 

FLA6=$0F 

>BIT31' 1' FOR BUILD UP CHECK ARE 

18630 


»BIT4t'l' FOR R/W SECTOR 

13640 


JBIT51' 1' FOR ADD HAP BIT 

18650 


5BITS J'1' FOR WRITE 

18660 


jBIT75'1' FOR DIR ENTRY FINISH 

18670 

DIRBFA=«12 

»DIR BUFFER 

18680 

HAPBFA=$14 

5 MAP AREA 

18690 

CHKBFA=f16 

>CHECK AREA 

18700 

RTNFLG=$18 

;THREE RETURN FLAGS 

18710 

DRERNB=$1C 

5DIR ENTRY# 

18720 

DREROF=$lD 

»DIR ENTRY OFFSET 

13730 

TEMP=$1F 


18740 

BLKNUB=$21 

5 BLOCK NUMBER 

18750 

TRKNUB=$22 

5 TRACK NUMBER 

18760 

TEMP1=$23 


18770 

PRVDSK=$24 

5PREVIOUS DISK* 


13780 

18790 

18300 

18810 

18820 


CRTDRN=$25 

CMERCT=$27 

DERDSK=$29 

RTNFG1=$2A 

FLAG2=$2C 


PRESERVED FOR DR OF FOB 
}NUMBER OF HATCHING FOB WITH DIR 
iDESIRED DISK# 

5 AXULIRARY RETURN FLAG 


18830 

CRRCNB=$2D 

18840 

TLRCNB=$2E 

18850 

EXNTNB=$2F 

18360 

SECNUB=$30 

18870 

TEMP2=$37 

18880 

BKRBLK=$31 

18890 

ADVBLK=$33 

18900 

BK0SFG=$35 

18910 

BLK0FS=$36 

18920 

I0BFFG=$39 

18930 

CRTDSK=$3A 

18940 

CBADRV=$55 

18950 

FLAG1=$58 

18960 

SYMRST=$D9A6 

18970 

CSLIN=$D9C0 

18980 

CSL0UT=$DA5C 

18990 

LIT0TT=$DA71 

19000 

BRCSI0=$DA74 

19010 

0UTBUF=$DA8B 

19020 

RDCSBF=$DACD 

19030 

6TI0BY = $DBB2 

19040 

STI0BY=$DBB7 

19050 

GTCLST =$DBBA 

19060 

PAMTAB=IE41F 

19070 

LIT0UT=$E5A9 


JCR 

IRC 

>EX 

»SECTOR* WITHIN A TRACK 

j BACK BLOCK# 

5 ADVANCED BLOCK# 
i BLOCK OFFSET FLAG 
»BLOCK OFFSET 
j'FLUSH' FLAG 
j CURRENT DISK NO. 
i RESERVED FOR SERCH NEXT 

5BD01 


; bios 


V 1908C 

H0MEH0=$E5F5 

1 19090 

DKSEL1=$E643 

[ 19100 

SETTR1=$E665 

' 19110 

SETSC1=$E668 

19120 

SETBL1=$E66B 

f 19130 

STDMA1=$E66E 

19140 

URTTRK=$£822 

19150 

RWD8S1=$E887 

19160 

ERR0R=$E?28 

19170 

SIOBOK=$E9QA 

19180 

DFBUFA=$E965 

19190 

DIRBUF=$EB65 

19200 

MAPAR0=$ED65 

19210 

MAPAR1=*EDA5 

19220 

CHKAR0=$EDE5 

19230 

CHKAR1=$EDF3 

19240 

FLCTBK=$EE01 

19250 

IOBUF=$BOOO 


19260 

19270 

192S0 

19290 

19300 

19310 

19320 

19330 

19340 

19350 

19360 

19370 

19380 

19390 

19400 

19410 

19420 

19430 

19440 

19450 

19460 

19470 

19480 


USERCD 

WF’TVCT 

LOGVTR 


* BYTE 

* BYTE 

* BYTE 


5USER CODE 
j R/O VECTOR 
jLOGIN VECTOR 


! BRANCH TABLE 


BRHTAB 


.WORD 
. WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 


SYMRST >CSLIN»CSLOUT jLITQTT jDRCSIO 
OUTBUF > RDCSBFj GTIOBYiSTIOBY f GTCLST 
RSDKSH» GTLGVT ? GTCRDK»GTMF'LT > SETWF'T 
GTROVT> GTDKPA»SGTUCD , SETDMA»SELDSK 
MAKFIL»DELFIL»OPNFIL»CLSFIL»RDRCSQ 
WTRCSQ#RDRCRH ?WTRCRMj SHF 1ST,SHNEXT 
RENAME» CHATRB j CPFISZ»STRDRC ? SIODSK 


WM® * * % 111 %%%%%% % % % % 1 1 '* 111 t % 1111 * % % * t % % % 'I % 11 * 1 1- 1t11 
% $ 

% FUNCTION 10 1 RESET DISK SYSTEM % 

% t 

tttttttzzzztzttzttttttzztttttttttttzttttttzttzztttztztt 

t t 

* ENTRY PARAMETERS 1 * 

* REGISTER X *. $OA * 

* t 

ttztttzzztztztzttztztttttztzttttttztttztttzztttt'ztttttz 


5 INITIALIZE WRITING PROTECT VECTOR 
;s DISK LOG VECTOR 


19490 

RSDKSM 

=* 

19500 9 



19510 

LDA 

*$00 

19520 

STA 

LOGVTR 

19530 

STA 

WPTVCT 

19540 

STA 

DERDSK 

19550 

JSR 

S$LDSK 

19560 

LDA 

♦DFBUFA 

19570 

LDX 

♦DFBUFA/256 

19580 

JMP 

STDMA1 

19590 ; 



19600 5 




j SELECT DISK 


5SELECT DEFAULT BUF FOR DMA 


19610 



Csl C-4 C-l CJ 


19420 } xxxxxx x x x % t % xxxx x xxxx % % x xxx * x %** % % * % % ****. % % % % % %%%% % % x * * 


19430 ; * % 

[ 19440 ; * FUNCTION 11 1 GET LOGIN VECTOR % 

19450 i t % 

19440 i X X X * * X * X * 1X X X X X X X X X X X X X X X X X X X X XX X * % X X * * 4 X t X X X X X % X * X X X 4 4 

19470 1 % % 

19480 » * ENTRY PARAMETERS 1 * 

19490 1 * REGISTER X 1 $QB * 

19700 1 * % 

19710 i * RETURNED VALUE 1 * 

19720 > * REGISTER A 1 LOGIN VECTOR * 

19730 » * * 


19740 t mm* % X % % X * XX XXX % % X t X % % % * X X X X % X X X X t X % X X 4 X X X X X X X X X X X X X 

19750 1 

19740 GTL6VT =X 

19770 1 

19780 LDA LOGVTR 

19790 JMP STRTFG 

19800 ! 

19810 ; XXXXX X X XXXXXXX X XX X XX X '4: XXXXXXX X XXXXXXXXXXXXXXXX XX XXXxxxx 


19320 ; X % 

19330 1 X FUNCTION 12 1 GET CURRENT DISK NUMBER X 

19840 1 X % 

19850 5 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX*XXXXXXXXXXXXXXXXX 4 
19840 ! X 4 

19370 » X ENTRY PARAMETERS 1 X 

19880 f X REGISTER X 1 $OC X 

19890 5 X % 

19900 t X RETURNED VALUE 1 4 

19910 ; X REGISTER A 1 CURRENT DISK NUMBER 4 

19920 I X 4 


19930 » xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

19940 > 

19950 GT CRDK=4 

19940 LDA CRTDSK 

19970 JMP STRTFG 

19980 
19990 
20000 
20010 
20020 
0030 
0040 
0050 
0060 
20070 
20080 
20090 
20100 
20110 
20120 

20130 GTMF'LT=* 

20140 » 

20150 LDA 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


X 4 
X FUNCTION 13 J GET MAP ADDRESS OF CURRENT DISK 4 
* * 
******xxxxxxxxxxx******XXXXXX*xxxxxxxxxxxx****xxxx**xxxx 
X X 
X ENTRY PARAMETERS 1 4 

* REGISTER X 1 $OD 4 
X X 
X RETURNED VALUE J 4 

* REGISTER YfA 1 MAP ADDRESS OF CURRENT DISK 4 

* 4 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


MAF’BFA 


20160 

STA 

RTNFLGtI 

20170 

LDA 

MAPBFA+1 

20180 

STA 

RTNFLG+2 

20190 

RTS 


20200 ; 




20210 » %%%%%%t t ittttt 111 % % % % % % % £ % % i % t % % 11 'I % 11 % % % % % t % * % % % % % t & t % % 

20220 I * * 

20230 1 * FUNCTION 14 I SET WRITING PROTECT VECTOR * 

20240 1 t t 

20250 i ********** t * t * t * % * * **** * * * * * * * * t * % % * * % % * * * % % * t * **** * % % % % 
20230 i i * 

20270 > * ENTRY PARAMETERS 1 * 

20280 i * REGISTER X \ $OE * 

20290 f * * 

20300 i *********** * % * * * * * * * * * * * % % * * * * * * * * * * * 1 * % * ** % * * *** * * * * * % t 


20310 ; 
20320 

20330 i 

SETWPT=3 

4 




20340 

LDA 

CRTDSK 

i GET BIT 

PATTERN FOR 

CURRENT 

20350 

JSR 

BNYBIT 

5 DISK 



20360 

ORA 

WPTVCT 




20370 

STA 

WPTVCT 

5SET R/G 

FOR CURRENT 

DISK 

20380 

RTS 






20390 

20400 

20410 

20420 

20430 

20440 

20450 

20460 

20470 

204S0 

20490 

20500 

20510 

20520 

20530 


£ * | * % * I * * % * * * * * * * * * * * % % * I 'I * ** * * * * * * * * * * % * * * $ * * * * * * * % * * * * 

* 4: 

* FUNCTION 15 1 GET READ ONLY VECTOR * 

* * 
% * % ** 4 % *** t% % % % % % %%t%% %t% %t% $ %ttttt%t% % % % % %111% % % %%%%% 4 % 


ENTRY PARAMETERS 
REGISTER X 

RETURNED VALUE 5 
REGISTER A 


$OF 


READY ONLY VECTOR 


* 

% 

t 

* 

* 

t 

t 




WPTVCT 

STRTFG 


20540 


GTROVT= 

20550 

f 


20560 


LDA 

20570 


JMP 

20580 

f 


20590 

J 


20600 

i 


20610 

r 


20620 

r 


20630 

? 


20640 

? 


20650 



20660 

f 


20670 

i 


20680 

> 


20690 







20700 

20710 

20720 

20730 

20740 

20750 

20700 

20770 

20780 

20790 

20800 

20810 

20820 

20830 


i % % * * * * * * * * * % * * £ £ * * £ * * * * * * k I % % % % % % %£%%%% * % % % % * % | 1$ % 

* * 

# FUNCTION 16 I GET PARAMETER TABLE ADDRESS OF * 

* CURRENT DISK * 

F * 

% * * 11 % %%%t * 1% * * ** 1% % * % * % * t * 1*% %%%%%% % * ** * % % % * % **** t * % % %t 


ENTRY PARAMETERS 
REGISTER X 

RETURNED VALUE t 
REGISTER Y>A 


$10 


PARAMETER TABLE ADDRESS 


* 

% 

% 

* 

* 

* 

* 


20840 ; 

20850 

GTDKF'A= 

% 

20860 5 

20870 

LDA 

CRTDSK 

20880 

LDX 

#$03 

20890 

JSR 

ASLDSR 

20900 

LDX 

♦PAMTAB 

20910 

STX 

HLREG 

20920 

LDX 

♦PAHTAB/256 

20930 

STX 

HLREG+1 

20940 

LDX 

*$00 

20950 

STX 

TEMP 

20960 

JSR 

ADCOFS 

20970 

LDA 

HLREG 

20980 

STA 

RTNFLGI1 

20990 

LDA 

HLREG* 1 

21000 

STA 

RTNFLGE2 

21010 

RTS 



210 20 
21030 
21040 
21050 
21060 


5GET CORRES. ADDR. 


i RETURN THE ADDR, 


********************** **** ****** ******** ***************** 
* * 

* FUNCTION 17 1 SET/GET USERCODE * 

t % 


21070 

f 

******************* 

21030 

f 

* 


21090 

f 

* 

ENTRY PARAMETERS 

21100 

f 

* 

REGISTER X 

21110 

f 

* 

REGISTER A 

21120 

f 

* 


21130 

J 

* 

RETURNED VALUE 1 

21140 

f 

* 

REGISTER A t 

21150 

f 

* 


21160 

f 

****** * **** ** ***** * 

21170 

1 



21180 



SGTUCD=* 

21190 



CMP *$FF 

21200 



BNE S$TUCD 

21210 



LDA USERCD 

21220 



JMP STRTFG 

21230 



S$TUCD=* 


$11 

$FF 


(GET) OR USERCODE (SET) 


CURRENT CODE OR (NO VALUE) 


* 

* 

* 

% 

* 

* 

* 

* 


>CHECK WETHER SET OR GET 
iGET IT 





F 21240 
[ 21250 

21260 

| 21270 
21260 
I 21290 
21300 i 
f 21310 I 
’ 21320 i 
21330 i 
‘ 21340 I 
21350 1 
21360 ! 
21370 ; 
21380 i 
21390 > 
2 1400 
21410 i 
21420 
21430 
21440 
21450 j 
21460 
21470 
21480 1 
21490 
21500 
21510 
21520 
21530 
21540 t 
21550 
21560 5 
21570 
21580 
21590 
21600 
21610 
21620 
21630 
21640 > 
21650 
21660 5 
21670 
21680 
21690 
21700 
21710 
21720 
21730 
21740 
21750 j 
21760 
21770 


AND *$1F 

STA USERCIi .GET IT 

RTS 


4444 t 4 t t * 4 % 4 t 4 tttt 44 t 4 4 4 4 tttt :4c 4 4 4444 4 % 4 tttttt % % t % 4 '144 % 444 
4 4 
4 FUNCTION 18 I SET DMA ADDRESS 4c 
* 4 
4 % i 1 4 4 4444c 4 tttt 4 1 % tttt 4 111 % 4 1 44 % 4 4 t % 44 % 44 % 4 t 4 % 4 4 tttt tttt 4 
4 4 
4 ENTRY PARAMETERS l t 
t REGISTER X *, $12 4 
t REGISTER YjAI DMA ADDRESS 4 
4 4 
4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 44 4 4 4 4 4 4 4 4 4 4 4 4 4 


SETDMA=4 


LDA DEREG 

LDX DEREG+1 

M? ST DMA 1 

ASLDSR = 4 ? VALUE4(244(X) ) 

1 WHERE VALUE IS IN A l TEMP 

ASL A 

ROL TEMP 

DEX 

BNE ASLDSR 

RTS 

ADC0FS=4 5ADD OFFSET TO THE ADDR. 

CLC 

ADC HLREG 

STA HLREG 

LDA TEMP 

ADC HLREG+1 

STA HLREG+1 

RTS 

GETENT=4 5GET DESIRED DIR ENTRY ADDR, 


LDA 

DIRBFA 

STA 

HLREG 

LDA 

DIRBFA+1 

STA 

HLREG+1 

LDA 

DREROF+1 

STA 

TEMP 

LDA 

DREROF 

JMF' 

ADCOFS 


BNYBIT=4 


;entry:a binary 
$ EXIT:A BIT pattern 



21780 » 

21790 TAX 

LDA *$01 
I 21810 B$YBIT=* 

21820 HEX 

21830 Bill BN$BIT 

21840 ASL A 

21850 JHP B$YBIT 

21800 BN$BIT=* 

21870 RTS 

21880 ! 

21890 IFOR THE INPUT PHYSICAL BLOCK NO, IN A iTEMP 

21900 5CACULATE THE CORPS, BYTE OFFSET FROM BIT MAP 

21910 >AND STORE IT TO YtTHE BIT PATTERN WITHIN THE 

21920 ?BYTE AND STORE IT TO A 


21930 ; 



21940 

GTMAPB= 

% 

21950 > 



21940 

PH A 


21970 

LSR 

A 

21980 

LSR 

A 

21990 

LSR 

A 

22000 

LDX 

*$05 

22010 

G$HAPB= 

& 

1 22020 

ASL 

TEMP 

22030 

HEX 


22040 

BNE 

G$MAPB 

22050 

ORA 

TEMP 

22060 

TAY 


22070 

PLA 


22080 

AND 

*$07 

22090 

STA 

TEMP+1 

22100 

LDA 

*$07 

22110 

SEC 


22120 

SBC 

TEMP+1 

22130 

JMP 

BNYBIT 

22140 5 



22150 

GTBKNB= 

% 

22160 



22170 } 



22180 

LDA 

*$00 

22190 

STA 

TEMP 

22200 

LDA 

(HLREG1 

22210 

LDX 

*$01 

22220 

JSR 

ASLDSR 

22230 

TAX 


22240 

TYA 


22250 

LSR 

A 

22260 

BCS 

G$BKNB 

22270 

JSR 

G$BKNB 

22280 

G$BKNB= 

* 

22290 

CPX 

*$00 

22300 

BNE 

GT$KNB 

22310 

DEC 

TEMP 


5LOU BYTE R-SHIFT 3 TIMES 


5HIGH BYTE L-SHIFT 5 TIMES 


>THE RESULT! PHY. BLOCK NO,/ S 


i GET THE CORRES, BIT PATTERN 


i GET PHYSICAL BLOCK NO. 
i AND STORE IN A l TEMP 


i GET LOGICAL BLOCK NO, 
f AND *2 


»ODD OR EVEN? 
> ODD r -1 
»EVEN» -2 


f 22320 

GT$KNB=4 


f 22330 

HEX 


[. 22340 

TXA 


1 22350 

RTS 


22360 5 

I 22370 

MBFMPB=# 


22380 i 

| 22390 

JSR 

GTBKNB 

f 22400 

JSR 

6THAPB 

1 22410 

PHA 


I 22420 

LDA 

*$20 

22430 

BIT 

FLAG 

22440 

BEQ 

M$FHPB 

22450 

PLA 


22460 

ORA 

(HAF’BFA) ? Y 

22470 

STA 

(HAPBFA)y Y 

22480 

RTS 


22490 

M$FMPB=* 


22500 

PLA 


22510 

EOR 

*$FF 

22520 

AND 

(HAPBFA) t Y 

22530 

STA 

(HAPBFA)»Y 

22540 

RTS 


22550 1 

22560 

MDFMAP=* 



22570 
22580 > 


5 BUILD OR MODIFY BIT HAP 
iGET F'HSICAL. BLOCK NO, 

5ADD OR DELETE? 

»SET CORRES, BIT 

5 RESET CORRES, BIT 

jBUILD OR HODIFY BIT HAP FOR 
5 WHOLE ENTRY“ 


22590 

LDA 

HLREG 

5DIR ADDR, STORE TO HLREG1 

22600 

STA 

HLREG1 


22610 

LDA 

HLREG+1 


22620 

STA 

HLREG1T1 


22630 

LDY 

*$OF 


22640 

22650 

HD$HAP 

INY 

=t 


22660 

CPY 

*$20 

j16 BYTES DONE? 

22670 

22680 

BNE 

RTS 

H$FHAP 

5NO? KEEP DOING 

22690 

H$FMAP 

=* 


22700 

LDA 

(HLREG1),Y 

»GET LOGICAL BLOCK NO. 

22710 

BEQ 

HD$HAP 

5 IF 0, SKIP IT 

22720 

STY 

TEHP1 


22730 

JSR 

HDFHF’B 

jIF NO Oj HODIFY CORRE. BIT HAP 

22740 

LDY 

TEHF‘1 


22750 

JHF‘ 

HD$HAP 


22760 5 

22770 

22780 

22790 

ADDDIR- 

= * 

t GET THE CHECKSUH OF THE DIR 

5BLOCK AND STORE IT TO X 8 TEHP 

»exit:x»tehp suh of whole dir 

22800 i 

22810 

LDX 

*$02 


22820 

LDY 

*$00 


22830 

LDA 

*$00 


22840 

A$DDIR 

= * 


22850 

CLC 


j ADD UP ALL BYTES IN THE BLOCK 


' 22860 

ADC 

(HLREG),Y 

22370 

BCC 

AD$DIR 

22880 

INC 

TEMP 

f 22890 

AD$DIR= 


I 22900 

INY 


22910 

BNE 

AfDDIR 

22920 

INC 

HLREG+1 

22930 

DEX 


[ 22940 

BNE 

A$DDIR 

f 22950 

TAX 


f 22960 

RTS 


22970 i 

[ 22980 

DIRCHK= 


22990 5 

23000 

LDA 

BLKNUB 

23010 

LDX 

#*01 

23020 

JSR 

ASLDSR 

23030 

PHA 


23040 

LDA 

*$00 

23050 

STA 

TEMP 

23 060 

LDA 

DIRBFA 

23070 

STA 

HLREG 

23080 

LDA 

DIRBFA+1 

23090 

STA 

HLREG+1 

23100 

JSR 

ADDDIR 

23110 

F'LA 


23120 

TAY 


23130 

TXA 


23140 

LDA 

#$08 

23150 

BIT 

FLAG 

23160 

BNE 

D$RCHK 

23170 

TXA 


23180 

CMP 

(CHKBFA),Y 

23190 

BNE 

DI$CHK 

23200 

INY 


23210 

LDA 

TEMP 

23220 

CMP 

(CHKBFA) ,Y 

23230 

BNE 

DI$CHK 

23240 

RTS 


23250 

DI$CHK= 

% 

23260 

JSR 

SETUPT 

23270 

LDA 

*$06 

23280 

JHP 

ERROR 

23290 

D$RCHK= 

* 

23300 

TXA 


23310 

STA 

(CHKBFA),Y 

23320 

INY 


23330 

LDA 

TEMP 

23340 

STA 

(CHKBFA),Y 

23350 

RTS 



23360 » 

23370 DSKPRM=* 

23380 

23390 


j TWO PAGE DONE? 

5BUILD OR CHECK CHECKSUM 

»get offset from checksum area 
ifor desired dir block 

1SET DIR buffer addr, 

5GET CKECKSUM FOR THIS DIR BLOCK 

>BUILD OR CHECK? 

»CHECKING CHECKSUM 


iIF NOT MATCH, SET CORRES. DISK 
iTO R/0 AND DISPALY ERR 

5BUILDING CHECKSUM 


>GET CORRES. DISK PARAMS. 
n STORE THEM TO DIRBFA,MAPBFA 
SAND CHKBFA 



0-4 C**4 


1 234C0 i 
I 23410 
[ 23420 
I 23430 
[ 23440 
23450 
23460 
23470 
1 23480 
23490 
23500 i 
[ 23510 
[ 23520 1 
' 23530 
| 23540 
23550 
23560 
23570 
23580 
23590 
23600 
23610 
23620 1 
23630 
23640 
23650 J 
23660 
23670 
23680 
23690 
23700 
23710 
23720 
23730 
23740 
23750 
23760 
23770 
23780 
23790 
23800 
23810 
23820 
3830 
3340 
23850 
23860 
23870 
23880 
23890 
23900 
23910 
23920 
23930 


LDA 

CRTDSK 


JSR 

DKSEL1 


LDY 

#$05 


OiKPRii- 

■t 


LDA 

(HLRES) »Y 


STA 

DEY 

DIRBFAjY 


BPL 

RTS 

D$KPRM 


RWDRBK= 

■V 

5READ OR WRITE DIR BLOCK 

JSR 

R$DRBK 

;SET DIR BUFFER FOR DMA 

JSR 

RUDBS1 

>R/W A DIR BLOCK 

LDA 

#DFBUFA 

»RECOVE DMA TO DEFAULT BUFFER 

LDX 

*DFBUFA/256 


JMP 

STDMA1 


R$DRBK= 

1 


LDA 

DIRBFA 


LDX 

DIRBFArl 


JMP 

STDMA1 


RDDIRB= 

% 

5READ DIR BLOCKS TO DIR BUFFER 
iAND BUILD UP CHECKSUM 

INC 

DRERNB 

5SET CURRENT ENTRY NO. 

LDA 

DRERNB 


CMP 

#$70 

5112 ENTRIES DONE? 

BCC 

R$DIRB 


LDA 

#$80 

i IF DONE* SET FLAG DONE 

ORA 

FLAG 


STA 

RTS 

FLAG 


R$DIRB= 

% 


AND 

*$0F 

jGET CORRES. ENTRY OFFSET 

LDX 

*$05 

5AWAY FROM THE DIR BUFFER 

LDY 

*$00 


STY 

TEMP 


JSR 

ASLDSR 


STA 

DREROF 

5STORE IT 

LDA 

TEMP 


STA 

DRERQFI1 


ORA 

DREROF 

$ FIRST ENTRY? 

BEQ 

BDD$RB 


BIT 

FLAG1 


BMI 

BDD$RB 


RTS 


JIF NO> RETURN 

BDD$RB= 

* 


STA 

FLAG1 


LDA 

DRERNB 


AND 

*$F0 


LSR 

A 


LSR 

A 




[ 23940 

LSR 

A 


i 23950 

LSR 

A 


f 23960 

STA 

BLKNUB 

jSET BLOCK NO, 

f 23970 

JSR 

SETBL1 


’ 23980 

LDA 

*$03 


23990 

STA 

TRKNUB 

>SET DIR TRACK NO. 

24000 

JSR 

SETTR1 


24010 

JSR 

RWDRBK 

>READ THIS DIR BLOCK 

24020 

JHP 

DIRCHK 

5BUILD UP CHECKSUM 

24030 ; 




24040 

BUDMAF'= 

% 

jBUILD UP BIT MAP FOR 

24050 



»CURRENT DISK* 

24060 > 




24070 

LDA 

*$00 

UNIT, BIT MAP TO O 

24080 

LDY 

*$3F 


24090 

B$DMAP= 

* 


24100 

STA 

(HAPBFA)iY 


24110 

DEY 



24120 

BF’L 

B$DMAP 


24130 

LDA 

*$FF 

UNIT, ENTRY COUNTER 

24140 

STA 

DRERNB 


24150 

LDA 

*$28 

$ SET FLAG INDICATING READ BLOCK 

24160 

STA 

FLAG 

j >BUILD BIT AMAP % CHECKSUM 

24170 

BUD$AF‘= 

* 


24180 

JSR 

RDDIRB 

>READ A DIR BLOCK 

24190 

BIT 

FLAG 

>112 ENTRIES DONE? 

24200 

BPL 

BU$MAP 


24210 

RTS 


> YES > RETURN 

24220 

BU$MAF'= 

* 


24230 

JSR 

GETENT 

>GET CORRES, ENTRY ADDR, 

24240 

LDA 

*$E5 


24250 

LDY 

*$00 


24260 

CMP 

(HLREG)>Y 


24270 

BEQ 

BUD$AP 

>SKIP THE EMPTY ONE 


24280 


JSR 

MDFMAP 

>BUILD UP THE BIT MAP FOR THE ENTRY 

24290 


JMP 

BUD$AP 


24300 

? 




24310 


LGNMAP= 

* 

>LOG IN CURRENT DISK 

24320 

f 




24330 


JSR 

DSKF'RM 

?GET DISK PARA, FOR CURRENT DISK 

24340 


LDA 

CRTDSK 


24350 


JSR 

BNYBIT 

>GET BIT PATTERN 

24360 


BIT 

LOGVTR 


24370 


BEQ 

L$GMAP 


24380 


RTS 



24390 


L$GMAF‘= 

* 


24400 


ORA 

LOGVTR 


24410 


STA 

LOGVTR 

>LOG IN CURRENT DISK 

24420 


JMP 

BUDMAP 

>BUILD UP BIT MAP l CHECKSUM 

24430 


RESM11* 

=*+3 


24440 

9 




24450 

1 




24460 

f 




24470 

1 





24480 ; 
24490 ? 
24500 ? 
24510 ? 
24520 ! 
24530 ? 
24540 ? 
24550 ? 
24560 i 
' 24570 I 
24580 ? 
24590 ? 
24600 ? 
24610 1 
24620 
24630 ? 
24640 
24650 
24660 
24670 
24680 
24690 
24700 
24710 
24720 
24730 
24740 
24750 
24760 
24770 
24780 1 
24790 
24800 
24810 ? 
24820 
24830 
24840 
24850 
24860 ? 
24870 
24880 
24890 ? 
24900 
24910 
24920 
24930 
24940 
24950 
24960 
24970 
4980 
4990 
5000 
5010 


* * * % t * * *** ***** % ** % * * ****** % %1 * 1 ** t% % * % *** % % ***** %t% *** * * * 


* * 

* FUNCTION 19 J SELECT DISK * 

% % 

******% % % % % % % * % ** *t ** 1**%*% % * 1 *** %t%%% ********* % * ***** ** 1 * 

* * 

* ENTRY PARAMETERS 1 * 

* REGISTER X 1 $13 * 

* REGISTER A 1 SELECT DISK * 

* * 


*********** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 


SELDSK=* 


STA 

DERDSK 

?CHECK LEGALITY 

CMP 

*$02 


BCC 

SE$DSK 


LDA 

4102 


JMP 

ERROR 


SE$DSK 

=* 


CMP 

CRTDSK 

?=CURRENT DISK? 

BNE 

S$LDSK 

?IF NOT? SELECT IT AS CURRENT 

RTS 

S$LDSK 

=* 


JSR 

SIOBDK 

?SEND LAST TRACK IN BUF TO DISK 

LDA 

DERDSK 


STA 

CRTDSK 


JMP 

LGNMAP 

iBUILD UP BIT MAP l CHECKSUM FOR IT 

MDFYS2 : 

=* 

?SET FCB.S2 TO INDICATE FCB HAS BEEN 
? ACT IVED 

LDY 

*$0E 


LDA 

o 

CO 

** 


STA 

(DEREG)?Y 


RTS 



FCBINZ : 

=* 

?SELSCT DISK ACCORDING TO FCB 
?PUT USER'S CODE TO FCB*DR 

LDA 

*$FF 

?INIT. RETURN FLAG 

STA 

RTNFLG 


LDY 

*$00 


LDA 

(DEREG)?Y 

?CURRENT DISK IS DESIRED? 

AND 

*$1F 


BEQ 

F$BINZ 


STA 

DERDSK 

»IF NOT? STORE IT AS DESIRED 

DEC 

DERDSK 


LDA 

CRTDSK 

?KEEP CURRENT DISK 

STA 

PRVDSK 


LDA 

(DEREG)?Y 


STA 

CRTDRN 



C-i CM CM 


1 I 25020 

AND 

*$E0 

I 25030 

STA 

(DEREG) ,Y 

f 25040 

LDA 

DERDSK 

25050 

JSR 

SELDSK 

f 25060 

F$BINZ= 


1 25070 

LDA 

USERCD 

1 25030 

LDY 

*$00 

f 25090 

ORA 

(DEREG) »Y 

25100 

STA 

(DEREG)fY 

[ 25110 

RTS 


' 25120 i 



f 25130 

TETWF'T = 

4; 

25140 ; 



f 25150 

JSR 

T$TWPT 

f 25160 

BNE 

TE$WF'T 

' 25170 

RTS 


f 25130 ' 

TE$WF‘T= 

* 

[ 25190 

LDA 

*$04 

25200 

JMP 

ERROR 

25210 

T$TUPT= 

4: 

25220 

LDA 

CRTDSK 

25230 

JSR 

BNYBIT 

25240 

BIT 

WF'TVCT 

25250 

RTS 


25260 » 



' 25270 

FBBRMH= 

* 

25230 1 



25290 

LDA 

*$FF 

25300 

STA 

RTNFG1 

25310 

FBD$$$= 

4 

25320 

STA 

DRERNB 

25330 

STX 

CMERCT 

25340 

FBDR$$= 

4 

25350 

LDA 

*$00 

25360 

STA 

FLAG 

25370 

FB$RMH= 

4 

25380 

JSR 

RDDIRB 

25390 

BIT 

FLAG 

25400 

BMI 

FBD$$H 

25410 

JSR 

GETENT 

25420 

LDX 

CMERCT 

25430 

DEX 


25440 

BER 

FBD$MH 

25450 

INX 


25460 

LDY 

*$FF 

25470 

F$DRMH= 

4 

254S0 

INY 


25490 

DEX 


25500 

BMI 

FBDR$H 

25510 

CF’Y 

*$0D 

25520 

BEQ 

F$DRMH 

25530 

LDA 

(DEREG), Y 

25540 

JMP 

F$$RMH 

25550 

FBD$MH= 

4 


JSELECT desired disk 

»STORE USERCODE TO FOB.DR 

5TEST FOR DISK WRITING PROTECT 


>MATCHING FCB WITH DIR 
!INIT. ENTRY COUNTER 

»KEEP HATCH NUMBERS 

5SET CHECKING>DIR NOT FINISH 
»AND READING BLOCK FLAG 

>READ A DIR BLOCK 
5112 ENTRIES DONE? 

5 IF NOT, GET DESIRED ENTRY ADDR 

5TEST FOR MAKING FILE 

»ALL DESIRED CHARS MATCHED? 

»YESj- FILE NAME FOUND 

»GET CURRENT CHAR AND MATCH IT 



1 25560 

LDA 

♦ f E5 

f 25570 

LDY 

*$00 

25580 

F$$RMH= 


25590 

CMP 

* $3F 

[ 25600 

BEQ 

F$DRMH 

25610 

SEC 


1 25620 

SBC 

(HLREG),Y 

! 25630 

AND 

*$7F 

f 25640 

BEQ 

FtDRHH 

25650 

BNE 

FB$RHH 

f 25660 

FBDR$H= 


25670 

LDA 

DRERNB 

25680 

STA 

RTNFLGT1 

25690 

STA 

RTNF61 

25700 

RTS 


1 25710 

FBD$$H= 

* 

25720 

LDA 

*$FF 

25730 

STA 

RTNFLGT1 

25740 

RTS 


25750 5 

25760 

PTFBDK= 

Y 

25770 

JSR 

GETENT 

25780 

LDY 

*$00 

25790 

P$FBDK= 

% 

25800 

LDA 

(DEREG),Y 

25810 

STA 

(HLREG),Y 

25820 

INY 


25830 

DEX 


25840 

BNE 

P$FBDK 

25850 

F‘T$BDK= 

% 

25860 

LDA 

*$48 

25870 

ORA 

FLAG 

25880 

STA 

FLAG 

25890 

JSR 

DIRCHK 

25900 

LDA 

BLKNUB 

25910 

JSR 

SETBL1 

25920 

LDA 

*$03 

25930 

JSR 

SETTR1 

25940 

JHP 

RWDRBK 

25950 » 

25960 

HKFILE= 

* 

25970 i 

25980 

JSR 

TETWPT 

25990 

LDA 

*$10 

26000 

BIT 

FLAG2 

26010 

BEQ 

H$FILE 

26020 

LDX 

*$OC 

26030 

JSR 

FBDRHH 

26040 

BIT 

FLAG 

26050 

BHI 

M$FILE 

26060 

LDA 

*$05 

26070 

JHP 

ERROR 

26080 

M$FILE= 

% 

26090 

LDX 

*$01 


»IF HAKE FILE, HATCH $E5 
5TO FIND AN EHPTY ENTRY 

»' ?' ? 

5NEXT BYTE EXPECTED 
fNEXT ENTRY EXPECTED 

iIF HATCH FOUND* SET HATCKED 
5ENTRY NO, 


5 IF NOT , SET $FF 


»PUT FCB TO DISK 
JGET DESIRED ENTRY ADDR,. 


»COPY DESIRED CHARS. FROH FCB 
J TO DIR ENTRY 


?SET WRITING BLOCK FLAG 

5SET DIR BLOCK 
jSET DIR TRACK NO, 

?WRITE DIR BLOCK TO DISK 

iDISK WRITE PROTECTED 
^ORIGINAL HAKING? 


;YES* CHECK FOR DUPLICATION 


ilF DUPLICATED, ERR 


26100 
26110 
26120 
26130 
26140 
26150 
26160 
26170 
26180 
26190 
26200 
26210 
26220 
26230 
26240 
26250 S 

26260 t 

26270 1 
26280 ! 
26290 5 
26300 i 
26310 1 
26320 > 
26330 5 
26340 i 
26350 J 
26360 » 
26370 5 
26380 > 
26390 1 
26400 } 
26410 » 
26420 
26430 9 
26440 
26450 
26460 
26470 
26480 } 
26490 
26500 i 
26510 
26520 
26530 i 
26540 
26550 5 
26560 
26570 
26580 
26590 
26600 
26610 
26620 
26630 


JSR 

FBDRMH 

5GO TO FIND AN EMPTY DIR 

BIT 

FLAG 

IMATCHED? 

BPL 

RTS 

MK$ILE 


MKfILE 

= 4 


LDY 

* $ 0 D 


LDA 

*$00 


MKF$LE 

= 4 


STA 

I NY 

(DEREG)jY 

>RESET REST BYTE IN FCB TO 0 

CP Y 

*$20 


BNE 

MKF$LE 


LDX 

*$20 


JSR 

PTFBDK 

5WRITE IT BACK TO DIR TRACK 

JMP 

MDFYS2 

$ SET BIT 7 OF S2 TO INDICATE 


4 % % % %1 444 4 % 4 4 4 44444444 % % % 4 1 44 % 4 %%%%t% % %11% % %it* % % % % % % %t 


t % 

* FUNCTION 20 1 MAKE FILE * 

* * 

% % % % %*%% % % % % % % % 4 : * 1 4 * 4 % % * % t % % t % % 11 % % 11 %%%% t % t % 1 4 4 4 4 4 4 4 4 4 
4 4 

4 ENTRY PARAMETERS 1 4 

4 REGISTER X *, $14 4 

4 REGISTER YjAI FCB ADDRESS 4 

4 4 

4 RETURNED VALUE 1 4 

4 REGISTER A t $FF DIRECTORY SPACE OVERFLOW 4 

4 DIRECTORY ENTRY NUMBER IF SUCCESS 4 

4 4 


4 4 44 44 4 4 4 4 4 4 44444444 4 44 4 44 4 44 44 4 4 4 4444444444 4 4444444 4 4 4 
MAKFIL=4 


JSR FCBINZ 

LDA 4$10 1SET BIT 4 OF FLAG2 TO INDICATE 

STA FLAG2 JORIGINAL MAKING 

JMP MKFILE 

SETRTN=4 

LDA RTNFG1 

JMP STRTFG 


TETFWT=4 5TEST FOR FILE WRITE PROTECT 

JSR GETENT 5GET DIR ENRTRY ADDR. 

LDY *$09 5GET DIR*T1 AND CHECK IT'S BIT 7 

LDA (HLREG)>Y 

TE$FWT=4 

ASL A 

BCS T$TFWT 

RTS 

T$TFWT=4 



f 26640 

LDA 

*$07 


f 26650 

JMP 

ERROR 


f 26660 } 

f 26670 

DLFILE 

— fj% 


1 26680 ? 

1 26690 

JSR 

TETWPT 

i DISK WRITE PROTECTED 

26700 

LDX 

*$OC 

5FIND DESIRED DIR ENTRY 

26710 

JSR 

FBDRMH 


26720 

DL$ILE 

=* 


26730 

BIT 

FLAG 


26740 

BPL 

D$FILE 


26750 

26760 

RTS 

D$FILE 

=t 


26770 

JSR 

TETFWT 

1FILE WRITE PROTECTED 

26780 

JSR 

GETENT 

i GET DESIRED ENTRY ADDR♦ 

26790 

LDY 

*$00 

JSET $E5 TO INDICATE DELETED 

26800 

LDA 

*$E5 


26810 

STA 

(HLRE6)? Y 


26820 

JSR 

MDFMAP 

i MODIFY MAP 

26830 

JSR 

PT $BDK 

5PUT DIR TO DISK 

26840 

JSR 

FBDR$$ 



26850 
26860 
26870 } 
26380 J 
26890 i 
26900 5 
26910 } 
26920 » 
26930 } 
26940 J 
26950 ? 
26960 i 
26970 J 
26980 ; 
26990 5 
27000 5 
27010 } 
27020 } 
27030 } 
27040 
27050 ? 
27060 
27070 
27080 
27090 ; 
27100 
27110 i 
27120 
27130 
27140 
27150 
27160 
27170 


JMP DUILE 5KEEP DOING? TILL ALL DONE 

RESV12*=*+3 


****** * * * * % % * * * * * * * % * * * * * * *** % * * * % * * % * **** * * * * % t * * * * * * * 


* * 

* FUNCTION 21 1 DELETE FILE * 

* * 

r****************************************************** 
* % 

* ENTRY PARAMETERS 1 % 

* REGISTER X 1 $15 * 

* REGISTER Y»A1 FOB ADDRESS * 

* * 

* RETURNED VALUE l * 

* REGISTER A 1 $FF FILE NOT FOUND 

* DIRECTORY ENTRY NUMBER IF SUCCESS 

* * 


************)m**************************************** 


DELFIL=* 


JSR FCBINZ 
JSR DLFILE 
JMP SETRTN 


CPDRFB=* »COPY DIR ENTRY TO FCB 

JSR GETENT 

LDY *$00 

C$DRFB=* 

LDA (HLREG)fY 

STA (DEREG)iY 

I NY 


■3* -iWr 


27180 


CF’Y #$20 



27190 


BNE C$DRFB 



0 7 •' 1 A n 


RTS 



l/cU) ? 


0F'FILE=& 



27230 1 





i 27240 


LDX #$OD 

» FIND DESIRED DIR ENTRY 


27250 


JSR FBDRMH 



27260 


BIT FLAG 



27270 


BF'L OfFILE 



27280 


RTS 



27290 


0$FILE=* 



27300 


JSR CPDRFB 

j COPY DIR ENTRY TO FCB 


27310 


JMP MDFYS2 



27320 > 





27330 5 

£ £ £ # £ £ $ t % % t % % % % % % 11% t $ £ t 

■* * t % t1 % % % % % % % % % % % % % t % % * *: t * t % % '■ 


27340 1 

* 



# 

27350 1 

t 

FUNCTION 22 *. OPEN 

FILE 

t 

27360 S 

$ 



t 

27370 < 

n 

% % % * * % %%11%ttti11%11 *$: 

111 t 11 * 1 11 % % % % % 11 $ * % % '1 * * * % % t ; 

n 

27380 1 

* 



* 

27390 1 

* 

ENTRY PARAMETERS 1 


t 

27400 ; 

* 

REGISTER X 1 $16 

* 

27410 ; 

4 

♦ 

REGISTER Y>AJ FCB ADDRESS 

t 

27420 7 

* 



% 

27430 5 

% 

RETURNED VALUE 1 


% 

27440 5 

% 

REGISTER A t $FF 

FILE NOT FOUND 

% 

27450 > 

t 

DIRECTORY ENTRY NUMBER IF SUCCESS 

% 

27460 5 

% 



% 

27470 5 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

27480 5 





27490 


OPNFIL=* 



27500 ; 





27510 


JSR FCBINZ 



27520 


JMP OF'FILE 



27530 ! 





27540 


CLFILE=* 



27550 1 





27560 


LDA #$00 



27570 


STA RTNFLG+1 



27580 


JSR TETWF’T 

1DISK WRITE PROTECTED 


27590 


LDY *$OE 



27600 


LDA ( DEREG )j Y 



27610 


ASL A 



27620 


ASL A 



27630 


BCS C$FILE 



27640 


RTS 



27650 


C$FILE=* 



27660 


LDX *$OD 

JFIND A MATCHED ENTRY 


27670 


JSR FBDRMH 



27680 


BIT FLAG 



27690 


BPL CL$ILE 



27700 


RTS 



27710 


CL$ILE=* 




( ■27720 JSR GETENT j GET THE AD DR, 

I 27730 LDY $$10 

27740 CLFI$$=4c 

27750 jCOPY FILE LOCATION AREA IN FCE: TO THE DIR ENTRY* 

27760 >NOTE *. IF (CORRS, BYTES NOT HATCH) AND (NONE OF * 

27770 > THEM ARE O, THEN ERR, OTHERUISEj COPY NONE O BYTE* 

27780 »TO O BYTE IF ONE OF THEN IS 05 OR LEAUE MATCHED" 

27770 1 PAIR ALONE* 

27800 LDA (DEREG)>Y ICOPY FILE LOCATION AREA IN FCB 

27810 BNE CLF$LE 

27820 LDA (HLREG) .Y 

27330 STA (DEREG)»Y 

27840 CLF $LE=4c 

27850 LDA (HLREG) >Y 

27860 BNE CLFIIE 

27870 LDA (DEREG) ,Y 

27880 STA (HLREG)>Y 

27390 CLFI$E=* 

27900 LDA (DEREG) ,Y 

27910 CMP (HLREG) »Y 

27920 BNE CLFIL$ 

27930 INY 

27940 CPY *$20 

27950 BNE CLFI$$ 

27960 LDY #$OF 5COPY 'RC' FROM FCB TO DIR ENTRY 

27970 LDA (DEREG)»Y 

27980 STA (HLREG) ,Y 

27990 JMP PT$BDK $ PUT DIR BLOCK TO DISK 

2B000 CLFIL$=* 

28010 DEC RTNFLG+1 SIF ERR t SET $FF TO INDICATE NOT SUECC. 

28020 RTS 

28030 5 

28040 i *^c^**:***^**********c**i|c*#*}fe^^#****-*)it**c*4c^:^-4t**#:^^c^*4c******* 


23050 } * * 

28060 i * FUNCTION 23 *, CLOSE FILE * 

28070 } * t 

28080 > 

28090 } * * 

28100 i * ENTRY PARAMETERS 1 % 

28110 5 * REGISTER X l $17 * 

28120 » t REGISTER YiAJ FCB ADDRESSS * 

28130 } * * 

28140 1 4c RETURNED UALUE *. * 

28150 5 * REGISTER A \ $FF FILE NOT FOUND 4c 

28160 ; * DIRECTORY ENTRY NUMBER IF SUCCESS * 

28170 , * * 


28180 5 4c 4c * 4c * 4 c * 4 c # 4c 4c # * 4c * ttt * 4c 4c * 4t * * 4c * * * * 4c * * 4c 4c # # * 4c * * * t * tt * * t # 11 4c * t 
28190 1 

28200 CLSFIL=* 

28210 i 

28220 JSR FCBINZ 

28230 JMP CLFILE 

28240 i 

28250 STRTFG=4c 5SET RETURN FLAG 



RTNFL6+1 


1 28300 

FLEDRT = 

■t 

[ 28310 5 



f 28320 

LDA 

*$01 

I 28330 

JMP 

STRTFG 

f 28340 5 



[ 28350 

GETREC= 

t 

28360 5 



| 28370 

LDY 

*$OC 

[ 28380 

LDA 

(DEREG )} Y 

f 28390 

STA 

EXNTNB 

[ 28400 

LDY 

*$OF 

28410 

LDA 

(DEREG)»Y 

28420 

STA 

TLRCNB 

28430 

LDY 

*$20 

28440 

LDA 

(DEREG)?Y 

28450 

STA 

CRRCNB 

28460 

RTS 


28470 5 



284S0 

TETOF‘N = 

5 5 

28490 1 



28500 

LDY 

*$OE 

28510 

LDA 

(DEREG)»Y 

28520 

ASL 

A 

28530 

BCS 

T$TOF'N 

28540 

LDA 

*$08 

28550 

JMP 

ERROR 

28560 

T$TQF'N = 

* 

28570 

RTS 


28580 5 



28590 

GTBKOF= 



5FILE END RETURN 


28610 

28620 


5GET RC»EX»CR AND STORE THEM 


5 5TEST FOR FOB OPENING 


5 KNOWING FCB.RC TO GET CURRENT 
5 POSIT ION IN FCB FILE LOCATION AREA' 
5 TO Y AND SECTOR* WITHIN THIS BLOCK 
? TO TEMP2 


28630 5 



28640 

LDA 

*$03 

28650 

AND 

CRRCNB 

28660 

STA 

TEHP2 

28670 

LDA 

CRRCNB 

28680 

LSR 

A 

28690 

LSR 

A 

28700 

CLC 


28710 

ADC 

*$10 

28720 

TAY 


28730 

28740 5 

RTS 


28750 

28760 
28770 5 

GTRLBS= 

* 

28780 

28790 

JSR 

GTBKOF 


5GET PHYSICAL BLOCK NO. AND 
5SECTQR NO, WITHIN THE BLOCK 

5GET CURRENT POSITION AND 
5SECTOR NO, UITIHIN THE BLOCK 


28800 
28810 
28820 

28830 
28340 
28850 

28880 
28870 
28880 
28890 
28900 5 
28910 
28920 
I 28930 
28940 
28950 ? 
28960 
28970 
28980 
28990 
29000 
29010 
29020 
29030 
29040 
29050 
29060 
29070 
29080 
29090 
29100 
29110 
29120 
29130 
29140 
29150 
29160 
29170 
29180 
29190 > 
29200 
29210 i 
29220 
29230 
29240 
29250 
29260 
29270 i 
29280 
29290 > 
29300 
29310 
29320 
29330 


LDA 

(DERE6)> Y 

5GET LOGICAL BLOCK NO, 

BEQ 

G$RLBS 

5SKIP 0 

LDX 

DEREG 


STX 

HLREG 

>CACULATE PHYSICAL BLOCK NO.l 

LDX 

DEREGtI 


STX 

HLREG1+1 


JSR 

GTBKNB 


LDX 

G$RLBS= 

RTS 

*$01 

■-% 


GTTKSC= 

■% 

jGET TRACK* AND PHYSICAL SECTOR* 
5WITHIN THIS TRACK 
>ENTRY PHYSICAL BLOCK* IN A»TEHP 
iEXIT X TRACK*fA PHYSICAL SECTOR* 

LDX 

*$FF 


G$TKSC= 

SEC 

I NX 


jBLOCK* DIM 7 TO GET TRACK NO, 

SBC 

t$Q7 


BCS 

G$TKSC 


DEC 

TEHP 


BF'L 

6$TKSC 


ADC 

*$07 

JBLOCK* HOD 7 

ASL 

A 


ASL 

A 

t (BLOCK* HOD 7)*4 

CLC 



ADC 

TEHF'2 

»ADDING THE SECTOR NO, WITHIN 
?THE BLOCK TO GET SECTOR NO, ' 
5WITHQN THE TRACK 

F’HA 



TXA 



SED 



ADC 

*$04 


CLD 



TAX 


iPUT TRACKNO. TO X 

F‘LA 


>PUT SECTOR NO, TO A 

RTS 



RWSCDF= 

* 

5READ A SECTOR INTO DEFAULT BUFFE1 

STX 

TRKNUB 


JSR 

SETSC1 


TXA 



JSR 

SETTR1 

JSET TRACK NO, 

JMP 

RUDBS1 


HDFFCB= 

* 

i HODIFY FCB TO FIT NEXT OPERATION 

BIT 

FLAG2 

IRAN, OR SEQ, HODE? 

BPL 

H$FFCB 


INC 

CRRCNB 



H$FFCB=* 




fO ro r-o ho 


| 29340 

LDA 

CRRCNB 

I 29350 

LDY 

*$2G 

1 29330 

STA 

( DEREG ) > Y 

89370 

LDA 

TLRCNB 

| 29380 

LDY 

*$OF 

[ 29390 

STA 

(DEREG),Y 

I 29400 

RTS 


f 29410 i 

29420 

HDNTEN= 

* 

29430 i 

| 29440 

JSR 

CLFILE 

I 29450 

LDX 

RTNFLG+1 

29480 

I NX 


[ 29470 

BNE 

H$NTEN 

29480 

RTS 


29490 

H$NTEN= 

% 

29500 

LDY 

*$0C 

29510 

LDA 

*$01 

29520 

CLC 


29530 

ADC 

(DEREG) >Y 

29540 

STA 

(DEREG) fY 

29550 

LDX 

*$OD 

29560 

JSR 

FBDRMH 

29570 

BIT 

FLAG 

29580 

BPL 

H$$TEN 

29590 

BIT 

FLAG2 

29600 

BVC 

HDNIEN 

29610 

JMP 

FLEDRT 

29620 

HDN$EN= 

* 

29630 

JSR 

MKFILE 

29640 

BIT 

FLAG 

29650 

BPL 

HDNT$N 

29660 

LDA 

*$03 

29670 

JMP 

STRTFG 

29680 

H$$TEN= 

t 

29690 

JSR 

0$FILE 

29700 

HDNT$N= 

* 

29710 

JSR 

GETREC 

29720 

LDA 

*$00 

29730 

JMP 

STRTFG 

29740 } 

29750 

RDRCS1= 

* 

29760 } 

29770 

JSR 

TETOPN 

29780 

LDA 

*$EO 

29790 

STA 

FLAG2 

29800 

RDRCS$= 

* 

29810 

JSR 

GETREC 

29820 

LDA 

CRRCNB 

29830 

CMP 

TLRCNB 

29840 

BCC 

R$RCSQ 

29850 

CMP 

*$40 

29860 

BEQ 

RD$CSQ 

29870 

JMP 

FLEDRT 


»STORE TO FCB.CR 

5STORE TO FCB.RC 

»HEAL WITH NEXT EXTENT ENTRY 

»CLOSE THE CURRENT EXTENT 
5$FF MEANS NOT SUCCES, 

»SUCCES! CONTINUE. 

5INCREAMENT 'EX' BY 1 
5FIND A CORRES. 'EX' IN DIR 
iFOUND? 

5 IF NOT» CHHECK R OR W? 

5 IF R» ERR 

»IF U> CREATE A NEW 'EX' 

>COPY CORRES, BYTES IN DIR TO FCB 
»GET 'EX'»'RC'»'CR' AND STORE THEM 
»SET SUCCES. FLAG 

;FILE OPENED? 

>SET FLAG2 TO INDICATE SEQ, R 

»' CR' <'RC'? 

>YES? 60 AHEAD TO READ 
rNOi CHECK 'CR'=$40? 

i IF NOT>ERR 



29880 
29890 
29900 
29910 
29920 
29930 
29940 
29950 
29960 
29970 
29980 
29990 
30000 
30010 
30020 
30030 
30040 
30050 
30060 1 

30070 i ******** * * * * * * * * ****** * * * * * * * * * * * * *: * * * * * * * * * * * * * * * * * * * * 


30030 i * * 

30090 1 * FUNCTION 24 1 READ SEQUENTIALLY * 

30100 1 * * 

30110 i ************ ****** *** ********* ******************* * ** * * * 

30120 1 * * 

30130 1 * ENTRY PARAMETERS I * 

30140 i * REGISTER X l $18 * 

30150 i * REGISTER Y,A1 FCB ADDRESS * 

30160 > * * 

30170 ; * RETURNED VALUE 1 * 

30130 5 * REGISTER A t $00 SUCCESS * 

30190 I * $01 FILE END * 

30200 ? * $02 RECORD NOT IN DISK * 

30210 » * * 


30220 5 ******************************************************* 
30230 » 

30240 RDRCSQ=* 

30250 i 


RD$CSQ= 

* 


JSR 

HDNTEN 

>CLOSE CURRENT 'EX', OPEN NEXT 

LDA 

*$00 

jRESET CRRCNB 

STA 

CRRCNB 


LDA 

RTNFLGF1 

i SUCCES. 

BEQ 

R$RCSQ 


JMP 

STRTFG 


R$RCSQ= 

* 


JSR 

GTRLBS 

5GET PHY * BLOCK NO, 

BNE 

RDRC$Q 


LDA 

4$02 

5IF CORRES. LOG, BLO, N0.=0, ERR 

JMP 

STRTFG 


RBRC$Q= 

* 


JSR 

GTTKSC 

»GET TRACK NO. % SECTOR NO, 

LDY 

*$10 


STY 

FLAG 


JSR 

RUSCDF 

jREAD A SECTOR 

JMP 

MDFFCB 

»MODIFY BIT MAP 


30260 

JSR 

FCBIN2 


30270 

JMP 

RDRCS1 


30280 i 




30290 

FNDEF’T 

=* 

i FIND EMPTY BLOCK,ENTRY A,TEMP 

30300 



5PHY, BLOCK* OF THE ONE BEFORE IT 

30310 



»EXIT A,TEMP EMPTY PHY. BLOCK* 

30320 , 




30330 

STA 

BKRBLK 

5SET BK. 1 AD. COUNTER 

30340 

STA 

ADVBLK 


30350 

LDA 

TEMP 


30360 

STA 

BKRBLK+1 


30370 

STA 

ADUBLK+1 


30380 

LDA 

*$01 

?SET CURRENT POINTER ODD OR EVEN FLAG 

30390 

AND 

BLKOFS 


30400 

STA 

BKOSFG 


30410 

F$$EPT 

=* 



[ 30420 

LDA 

BKRBLK 

> BK» SEARCK REACH BOTTOM? 

[ 30430 

ORA 

BKRBLK-i-1 


[ 30440 

BEQ 

FfDEPT 

;yes,go to ad. search 

30450 

FN$$PT= 

■% 


1 30400 

LDA 

BKRBLK 

i BK. SEARCH 

30470 

BNE 

FNIEPT 


I 30480 

DEC 

BKRBLK*! 


30490 

FN*EPT= 

-t 


30500 

DEC 

BKRBLK 

5BK. COUNTER MATCH THE E/0 FLAG SET BEF 

30510 

LDA 

BKRBLK 


! 30520 

AND 

♦ 101 


| 30530 

CHP 

BKOSFG 


f 30540 

BNE 

FI IEF‘T 

j NO > SKIP IT 

' 30550 

LDA 

BKRBLK 

»YES, GET CORRES. BYTE % BIT pattern 

' 30560 

LDX 

BKRBLK*1 

JIN BIT MAP AREA 

30570 

STX 

TEMP 


30580 ' 

JSR 

GTMAPB 


30590 

TAX 



30600 

AND 

(MAPBFA)fY 

JOCCUPIED? 

30610 

BNE 

FIDEPT 

»YES? TO AD, SEARCH 

30620 

TXA 


JNOiSET BIT MAP 

30630 

ORA 

(MAPBFA)»Y 


30640 

STA 

(MAPBFA)»Y 


30650 

LDA 

BKRBLK+1 

JBK. COUNTER AS FOUND PHY, BLOCK 

30660 

STA 

TEMP 

JNO, THEN RETURN 

30670 

LDA 

BKRBLK 


30680 

RTS 



30690 

FIDEF‘T = 

t 


30700 

LDA 

ADVBLK 

5AD. SEARCH TOP REACHED? 

30710 

CMP 

♦ IFF 


30720 

BNE 

FNDIF’T 


30730 

LDA 

ADVBLK+1 


30740 

CMP 

♦ 101 


30750 

BEQ 

FNDEIT 

5YES» TO CHECK IF BA. BOTTOM REACHED? 

30760 

FND*PT= 

* 


30770 

INC 

ADVBLK 

5 INCREMENT AD. COUNTER BY 1 

30780 

BNE 

FNDEII 


30790 

INC 

ADVBLK+1 


30800 

FNDEII= 

% 


30810 

LDA 

ADVBLK 

>THE SAME PROCESS AS IN BA, SEARCH 

30820 

AND 

♦ 101 


30830 

CMP 

BKOSFG 


30840 

BNE 

FIDEPT 


30850 

LDA 

ADVBLK 


30860 

LDX 

ADVBLK+1 


30870 

STX 

TEMP 


30880 

JSR 

GTMAPB 


30890 

TAX 



30900 

AND 

(MAPBFA)»Y 


30910 

BNE 

FIIEF'T 


30920 

TXA 



30930 

ORA 

(MAPBFA)> Y 


30940 

STA 

(MAPBFA)»Y 


30950 

LDA 

ADVBLK+1 



30960 

I f 30970 
[ 30980 
30990 
31000 

I 31010 

31020 
31030 
\ 31040 
31050 
1 31060 J 
31070 
31080 
31090 j 
31100 
31110 
31120 
31130 
31140 
31150 
31160 
31170 
31180 
31190 
31200 
31210 
31220 
31230 
31240 
31250 
31260 
31270 
31280 
31290 5 
31300 
31310 ? 
31320 
31330 
31340 
31350 
31360 
31370 
31380 
31390 
31400 
31410 
31420 
31430 
31440 
31450 
31460 
31470 
31480 
31490 


STA 

TEMP 


LBA 

ADVBLK 


RTS 

FNDE$T= 

-t 


LDX 

BKRBLK+1 

fBA. BOTTOM ALSO REACHED? 

I NX 

BNE 

FN$$F'T 

»NO> TO BA, SEARCH 

LDA 

*$A8 

iREPORT MAP OVERFLOW 

STA 

FLAG2 


RTS 

RELFOM= 

■t 

»PHY . BLOCK* TO LOGICAL ONE 

LDX 

TEMP 

5EXIT X LOGICAL BLOCK* 

STX 

TEMPI 


PHA 



INC 

BLKOFS 

5GET CURRENT POSITION IN 

LDA 

BLKOFS 

IFCB FILE LOCATION AREA 

LSR 

A 

5 EVEN OR ODD? 

PL A 

ADC 

*$01 

* EVEN,ADD 11 ODD » ADD 2 

BCC 

RILFOM 

5TO PHY. BLOCK* 

INC 

TEMPI 


R$LFOM= 

■'V 

■ -T- 


LSR 

A 

fDIVIDED BY 2 

LSR 

TEMPI 


BCC 

RE$FOM 


ORA 

*$80 


RE$FOH= 

* 


TAX 

DEC 

BLKOFS 


RTS 

UTRCS1= 

* 

- 

JSR 

TETOPN 

> OPENED? 

LDA 

*$AO 

;SET FALG2 TO INDICATE SEQ. 

STA 

FLAG2 


UTRCS$= 

* 


JSR 

TETWPT 

JDISK U PROTECTED? 

LDY 

*$09 


LDA 

(DEREG) t Y 


JSR 

TE$FUT 

JFILE U PROTECTED? 

JSR 

GETREC 


LDA 

CRRCNB 

i 'CR'<$40 

CMP 

*$40 


BCC 

W$RCSQ 


JMP 

FLEDRT 


W$RCSQ= 

* 


JSR 

GTBKOF 

» GET CUR. RECORD F'OSI, IN 

STY 

BLKOFS 

JFILE LOCATION AREA* 

LDA 

(DEREG)>Y 

5GET LOG. BLOCK NO, 


BEQ 

JSR 

WTRC$$= 

JSR 

LDY 

STY 

JSR 

LDY 

LDA 

STA 

LDA 

CMP 

BCC 

STA 

INC 

WTR$$Q 
CMP 
BNE 


=* 


WTR$$$ 

GTRLBS 

* 

6TTKSC 

*$50 

FLAG 

RWSCDF 

*$0E 

*$C0 

(DEREG)»Y 
CRRCNB 
TLRCNE 
WTR$$G 
TLRCNB 
TLRCNB 
t 

*$3F' 

WT$$SQ 


5 IF 01GO TO FIND EMPTY BLOCK 
JNO.GET CORRES, PHY. BLOCK NO. 

JGET TRACK* a SECTOR* 

JSET 'WRITE' TO FLAG 
JWRITE A RECORD 


»SET 'WRITTEN' FLAG IN FCB.S2 
»'CR'<'RC' 

160 AHEAD WITH NO INCRESE 'RC 1 
JSTORE 'CR' TO 'RC' 

5INCRESE 'RC' BY 1 

5'CR'=$3F? 

JNO,MODIFY FCB l RETURN 


31680 

BIT 

FLAG2 

JOTHERWISEj CHECK RANDOM 

31690 

BPL 

WT $$SQ 


31700 

JSR 

MDFFCB 

5 IF SEQ. CLOSE THIS EXTENT l 

31710 

JSR 

HDNTEN 

5OPEN NEXT 

31720 

LDA 

RTNFLG+1 


31730 

BNE 

W$$CSQ 

jIF UNSUCC.» LEAVE 'CR'=$3F ALONE 

31740 

LDA 

*$FF 

5 IF SUCC.» SET 'CR'=$FF 

31750 

STA 

CRRCNB 


31760 

W$$CSQ 

= t 


31770 

LDA 

*$00 


31780 

STA 

RTNFLG+1 


31790 

WT$$SQ 

=t 


31800 

JMP 

MDFFCB 

iMODIFY FCBj 'CR' WILL BF $40 OR $00 

31810 

WTRm 

=* 

JFIND AN EMPTY BLOCK 

31820 

STA 

TEMP 


31830 

LDA 

*$01 


31340 

CF’Y 

*$10 

5FIRST POINTER? 

31850 

BEG 

WT $CDSQ 

5YES» SET BASS PHY. BLOCK* TO $01 

31860 

DEY 



31870 

LDA 

(DEREG)»Y 

5NO, GET PHY. BLOCK* BEFORE IT 

31880 

BEQ 

WT $CSG 

JO? 

31890 

LDA 

DEREG 

iNO j CONVERT IT TO BASS BLOCK* 

31900 

STA 

HLREG1 


31910 

LDA 

DEREG+1 


31920 

STA 

HLREG1+1 


31930 

JSR 

6TBKNB 


31940 

WT$CSQ 

=* 


31950 

JSR 

FNDEPT 

J TO FIND AN EMPTY BLOCK 

31960 

TAX 



31970 

LDA 

*$08 

5MAP OVERFLOW? 

31980 

BIT 

FLAG2 


31990 

BEQ 

WTR$SQ 


32000 

LDA 

*$02 


32010 

JMP 

STRTFG 


32020 

WTR$SQ 

=* 


32030 

TXA 




32040 PHA 

JSR RELFOH fNOrCKANGE FOUND* TO CORRES, LOGICAL* 

32060 LDY BLKOFS 

32070 NOP 

32030 NOP 

32090 NOP 

32100 TXA 

32110 STA <DEREG)»Y »STORE TO COORES POINTER 

32120 PLA 5WRITE THE RECORD TO FIRST 

32130 JMP WTRC$$ jSECTOR OF FOUND BLOCK 

32140 i 
32150 t 
32160 5 

32170 1 ************** * * t % % % *1 * t * t % * % * * * * % * % * * % % * * * * * * * % * * *1 % % % 

32180 1 * * 

32190 1 * FUNCTION 25 1 WRITE SEQUENTIALLY * 

32200 ! * * 

32210 > ******** % * ****** * * * % * *1 * 1 * * * * * *** % % % * * * * * * * * * % * * % * * * * * * 

32220 ! * * 

32230 i * ENTRY PARAMETERS \ * 

32240 5 * REGISTER X 1 $19 * 

32250 » * REGISTER Y»AJ FCB ADDRESS * 

32260 5 * * 

32270 1 * RETURNED VALUE I * 

32280 1 * REGISTER A 1 $00 SUCCESS * 

32290 ! * $01 CAN'T CLOSE OR OPEN NEXT * 

32300 1 * EXTENT * 

32310 j * $02 MAP OVERFLOW * 

32320 } * * 

32330 » ****** * * % % * * * * * * * 1 * * ** * * * * * * * * * * * * ********** * * * * * * * * * * % 

32340 i 

32350 WTRCSQ=* 

32360 5 

32370 JSR FCBINZ 

32380 JMP WTRCS1 

32390 » 


32400 ? 
32410 
[ 32420 
f 32430 ? 
32440 
32450 
32460 
32470 
32480 
32490 
32500 
32510 
32520 
32530 
32540 
32550 
32560 
32570 
32580 
32590 
32600 
32610 
32620 
32630 
32640 
32650 
32660 
32670 
32680 
32690 
32700 
32710 
32720 
32730 
32740 
32750 
32760 
32770 
32780 
32790 
32800 
32810 
32820 
32830 
32840 
32850 
32860 
32870 ? 
32880 
32890 ? 
32900 
32910 


FNDCRN=* 5FIND CURRENT LOGIC RECORD* 

1 AND EXTENT 


LDY 

*$21 

?GET RO 

LDA 

(DEREG) ?Y 


AND 

t$3F 

?CACULATE DESIRED RECORD* 

LDY 

*$20 


STA 

(DEREG)?Y 

? STORE TO FCB.CR 

INY 



LDA 

(DEREG)? Y 

5GET RO AGAIN 

STA 

TEMPI 


INY 



LDA 

(DEREG)? Y 

5GET R1 

STA 

EXNTNB 

' i CACULATE THE 'EX' DESIRED 

ROL 

TEMPI 


ROL 

EXNTNB 


ROL 

TEMPI 


ROL 

EXNTNB 


LDA 

EXNTNB 

5DESIRED 'EX' = CURRENT 'EX'? 

LDY 

*$OC 


CMP 

(DEREG) ?Y 


BEQ 

FN$CRN 


JSR 

CLFILE 

i IN NOT? CLOSE CURRENT EXTENT 

LDX 

RTNFLG+1 

? SUCCESS? 

LDA 

*$03 


I NX 



BEQ 

FNDCR$ 


LDA 

EXNTNB 

?YES?STORE DESIRED TO FCB.CR 

LDY 

*$0C 


STA 

(DEREG)?Y 


JSR 

OPFILE 

?OPEN THIS EXTENT 

LDX 

RTNFLG+1 

5SUCCESS? 

INX 



BNE 

FN$CRN 


LDA 

*$04 

?IF NOT? CHECK R OR W 

BIT 

FLAG2 


BVS 

FNDCRf 


JSR 

MKFILE 

?IF U? CREATE A NEW NEXT 

LDA 

*$05 


LDX 

RTNFLG+1 

? SUCCESS? 

INX 



BEQ 

FNDCR$ 

1IF NOT REPORT ERR 

FNfCRN 

=t 


LDA 

*$00 


FNDCR$ 

=* 


JMP 

STRTF6 


RDRCRl; 

=* 


JSR 

TETOPN 


LDA 

*$60 

?SET FLAG TO INDICATE RANDOM R 


32920 

STA 

FLAG2 

32930 

JSR 

FNDCRN ? FOND 

32940 

BNE 

R$RCRM 

32950 

JMP 

RDRCS$ 5 IF S 

32950 

R$RCRM : 

=* 

32970 

RTS 


329SO 1 
32990 1 

MtttUttt) 

1: * * * * t % % % % % * t * t * * * 1 * 

33000 ; 

* 



33010 ; 
33020 i 
33030 1 
33040 » 
33050 ; 
33030 » 
33070 ; 
33080 ; 
33090 ; 
33100 1 
33110 j 
33120 1 
33130 ; 
33140 j 
33150 5 
33150 ! 
33170 
33180 » 
33190 
33200 
33210 5 
33220 
33230 5 


* FUNCTION 26 1 READ RANDOM * 

* t 
tut 11 % t % % t t t % $ % % t t % t % tt % % % * % t * * * ****** * * * * * * * * * * * * % * * * 


t 

t 

t 

% 

% 

* 

% 

% 

% 

% 

t 


ENTRY PARAMETERS 
REGISTER X 
REGISTER Y»At FCB ADDRESS 


RETURNED VALUE 
REGISTER A 


* 
* 

$1A * 

* 
* 
% 

$00 SUCCESS * 

$01 READ UNWRITTEN DATA * 

$03 CAN'T CLOSE CURRENT EXTENT * 

$04 SEEK TO UNWRITTEN EXTENT * 

* 

t t * t * t * tut 111111 * 11 tut 11 tut 1111111111111111111111111 

RDRCRM=* 


JSR 
JMP 

WTRCR1=* 


FCBINZ 

RDRCR1 


33240 

JSR 

TETOPN 

33250 

LDA 

*$20 

33260 

STA 

FLAG2 

33270 

JSR 

FNDCRN 

33280 

BNE 

W$RCRM 

33290 

JMP 

WTRCS$ 

33300 

W$RCRM= 

* 

33310 

RTS 


33320 5 



33330 i 



33340 5 



33350 t 



33360 5 



33370 » 




5DISK W PROTECTED? 

?SET FLAG TO INDICATE RANDOM W 

>FIND 'EX' l 'CR' DESIRED 

* IF SUCCESS i WRITE THIS RECORD 


33380 
33390 
33400 
33410 
33420 
33430 
33440 
33450 5 


1 34000 

STA 

CBADRV+2 

1 34010 

LDA 

♦DFBUFA 

f 34020 



34030 

STA 

HLRE61 

34040 

LDA 

*DFBUFA/256 

34050 

STA 

HLREG1+1 

34060 

LDA 

DIRBFA 

34070 

STA 

HLREG 

34080 

LDA 

DIRBFA+1 

34090 

STA 

HLRE6+1 

34100 

LDA 

*$00 

34110 

STA 

TEMP 

34120 

LDA 

RTNFLG+1 

34130 

AND 

*$OC 

34140 

LDX 

*$05 


i IF FOUND»COPY DIR BUFFER TO 
»DEFAULT BUFFER 


34150 


JSR 

ASLDSR 


34160 


JSR 

ADCOFS 

$ GET THE ADDR, OF MATCHED RECORD 

34170 


LDY 

*$00 


34180 


SH$IST= 

* 


34190 


LDA 

(HLREG) 5 Y 

5COPY MATCHED DIR TO DEFAULT BUFFER 

34200 


STA 

(HLREG1) t Y 


34210 


INY 



34220 


CPY 

*$80 


34230 


BNE 

SH$IST 


34240 


LDA 

RTNFLG+1 

»GET THE OFFSET AWAY FROM THE START 

34250 


AND 

*$03 


34260 


STA 

RTNFLG+1 


34270 


RTS 



34280 i 





34290 i 


34300 ? 

% 



* 

34310 » 

% 

FUNCTION 

29 1 SEARCH 

FOR NEXT * 

34320 5 

% 



* 

34330 j 

%%%%%%%%%%%*%%%%%%%%%%%%%%%%%%%%%%%%%%*%%%%%%%%%%%%%%%%%%% 

34340 » 

% 



* 

34350 » 

% 

ENTRY PARAMETERS 1 

* 

34360 i 

% 

REGISTER X \ $1D 

* 

34370 i 

% 



t 

34380 i 

t 

RETURNED 

VALUE 1 

% 

34390 

t 

REGISTER A J IFF 

FILE NOT FOUND * 

34400 » 

t 


NUMBER OF DESIRED ENTRY WITHIN * 

34410 ; 

% 


DIRECTORY BLOCK * 

34420 5 

* 



* 

34430 » 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

34440 } 





34450 


SHNEXT=: 

* 


34460 } 





34470 


LDA 

CBADRV 

JGET RESERVED ADR 

34480 


STA 

DEREG 


34490 


LDA 

CBADRV+1 


34500 


STA 

DEREG+1 


34510 


JSR 

FCBINZ 


34520 


LDA 

*$FF 


34530 


STA 

FLAG1 



* * * * I * * * * * % % * % * % * * * * * t * * * * * % % * * * * * * % t * * * * * * % * * * * * * * * * * * 

* * 

* FUNCTION 27 I WRITE RANDOM * 

* * 
****** * * * * * * * * * '* * * * * * * * * * * * * * * * * * * * * * * **** * * * * * * * % % % * % * 


ENTRY PARAMETERS \ 

REGISTER X t $1B 
REGISTER YjA! FCB 

RETURNED VALUE 1 

REGISTER A 1 $00 


ADDRESS 


* 

* 

* 

* 

* 

* 

* 


' 33580 ! 

* 

$02 MAP OVERFLOW 

t 

33590 i 

* 

$03 CAN'T CLOSE CURRENT EXTENT 

% 

[ 33600 ; 

* 

$05 DIRECTORY OVERFLOW 

* 

33610 ; 

* 


t 

33620 I 

* * * * * * * * * * * * * * * * * * * * * '* * % t * * * * * * * * * * * * * * * * * * * * * * * * * * * * * % 

33630 5 




33640 


WTRCRM=* 


33650 1 




33660 


JSR FCBINZ 


33670 


JMF‘ WTRCR1 


33680 5 




33690 } 

******** * * * * * * * * * * * * * * * * *: * * * * * * * * *. * * * * * * * * * * * * * * * * *; * * * % 

33700 1 

* 


* 

33710 i 

* 

FUNCTION 28 1 SEARCH FOR FIRST 

* 

33720 ? 

* 


t 

33730 

**********************•****-***************************** 

33740 J 

* 


* 

33750 5 

* 

ENTRY PARAMETERS I 

* 

33760 t 

* 

REGISTER X $1C 

* 

33770 

* 

REGISTER Y>A*. FCB ADDRESS 

* 

33780 ) 

* 


* 

33790 5 

* 

RETURNED VALUE 1 

* 

33800 ; 

* 

REGISTER A l $FF FILE NOT FOUND 

* 

33810 ! 

* 

NUMBER OF DESIRED ENTRY WHITHIN 

* 

33820 1 

* 

DIRECTORY BLOCK 

* 

33830 i 

* 


* 

33840 1 

* * * * * * * * * * * * * *. * * * * * * * * * * * * * * * * * * * * * * * * * * * * % * * % * * * * * * * * * 

33850 5 




33860 


SHFIST=* 


33870 


JSR FCBINZ UNITIALIZE FCB 


33880 


LDA DEREG JRESERV FCB ADR FOR 


33890 


j SERCH NEXT 


33900 


STA CBADRV 


33910 


LDA DEREG+1 


33920 


STA CBABRVP1 


33930 


LDX i$OD 5 FIND DESIRED DIR 


33940 


JSR FBDRMH 


33950 


BIT FLAG J IF NOT FOUND > RETURN WITH A= 

FF 

33960 


BPL S$FIST 


33970 


RTS 


33980 


S$FIST=* 


33990 


LDA DRERNB 




34540 
34550 
34560 
34570 
[ 34580 
f 34590 
' 34600 
34610 
[ 34620 

■ 34630 ! 
34640 
34650 . 

■ 34660 
34670 
34680 
34690 
34700 
34710 
34720 
34730 
34740 
34750 
34760 
34770 
347S0 
34790 
34800 
34810 
34820 
34830 
34340 
34850 
34860 
34870 
34830 
34890 
34900 5 
34910 
34920 i 
34930 
34940 
34950 
34960 
34970 
34980 
34990 
35000 
35010 
35020 
35030 
35040 
35050 
35060 
35070 


STA 

RTNFG1 


LUX 

*$0D 


LDft 

CBADRV+2 


J5R 

FBD$$$ 

»60 AHEAD TO FIND NEXT USING 



>PREVIOUS FCB AND THE PREVIOUS FOUND 



i ENTRY 

BIT 

FLAG 


BPL 

SfFIST 

* IF FOUND» GO TO COPY THEM 

RTS 



TETDUP 

=* 


CLC 



LOA 

DEREG 

5CHANGE ADDR» TO FCB LOCATION AREA 

ABC 

$$10 


STA 

DEREG 


BCC 

TtTDUP 


INC 

DEREG+1 


TtTDUP 

=* 


LDX 

#$OC 


JSR 

FBDRHH 

»TRY TO FIND DUPLICATE 

BIT 

FLAG 


BMI 

TEtDUP 


PLA 


ilF FOUND.REPORT ERR 

PLA 



LDA 

$$80 


JMP 

STRTFG 


TE$DUP= 

= * 


CLC 



LDA 

DEREG 

;no. recome the fc.b addr. 

ADC 

$$FO 


STA 

DEREG 


LDA 

DEREG+1 


ADC 

$$FF 


STA 

DEREG+1 


RTS 



RENAHM= 

=* 


JSR 

TETWPT 

.DISK U PROTECTED? 

LDX 

$$OC 


JSR 

FBDRHH 

.TRY TO FIND THE OLD FILE 

RE$AMM : 

=* 


BIT 

FLAG 

5 FOUND? 

BPL 

R$NAHM 


RTS 



R$NAMM : 



JSR 

TETFWT 

.FILE W PROTECTED 

JSR 

GETENT 

.GET DIR ENTRY 

LDA 

$$FF 


STA 

TEMP 


LDA 

$$FO 


JSR 

ADCOFS 

‘.SUBTRACT FROM $10 

LDX 

$$OC 



[ 35080 

LDY 

*$10 


35090 

JSR 

P$FBDK 

5MODIFY DIR DR-T3 ACCORDING TO FCB 

35100 

35110 

JSR 

FBDR$$ 

> DO-D1 AND WRITE IT BACK TO DISK DIR * 
5 FIND NEXT EXTENT AND DEAL WITH IT 

35120 

35130 

JMP 

REfAMH 

i UNTIL ALL FILES ARE DEALT, 

35140 ; 
35150 1 

utttttt 

* % % 111111 % % % t %%tt % % % * t % % % *: t % % % * % % % t '1 %%%% % %%%% * * % % 

35140 ; 

i 


* 


35170 1 * FUNCTION 30 \ RENAME FILE * 

351 SO J * * 

35190 1 ttttttt % t % % % t % % 11 %%%% t 'I % t % t % t % % % t '* * t % fc 111111 % % % * * * * 11 % % t % 


35200 i 

* 




% 

35210 ; 

% 

ENTRY PARAMETERS 

* 

* 


% 

35220 1 

% 

REGISTER X 

: $ie 


% 

35230 1 

% 

REGISTER Y ? A 

1 FCB ADDRESS 


t 

35240 i 

% 




% 

35250 ! 

% 

RETURNED VALUE t 



t 

35240 1 

t 

REGISTER A *, 

$FF FILE NOT 

FOUND 

% 

35270 5 

% 


$80 THE NEW NAME IS ALREADY IN DIR, 

% 

35280 1 

t 


DIR CODE FROM 

$00-$6F IF SUCCESS 5 

t 

35290 1 

% 




t 


35300 1 %%%%%%%%%% % * * * % % % % % % % % % % % % % % * % % * t % * t * * % % % * % % % % t * * % 111 tttt 

35310 1 


35320 

RENAME 

=t 


35330 1 




35340 

JSR 

FCBINZ 


35350 

LDY 

*$00 

»COPY 'DR' IN OLD FILE TO 'DR' 

35360 

LDA 

(BEREG)>Y 

»NEW FILE 

35370 

LDY 

*$10 


35380 

STA 

(DEREG)>Y 


35390 

JSR 

TETDUP 

5TEST DUPLICATE 

35400 

JSR 

RENAMM 

5RENAME! 

35410 

JMP 

SETRTN 


35420 4 




35430 

CHATRT 

= * 


35440 > 




35450 

JSR 

TETUF’T 


35460 

LDX 

*$OC 

5TRY TO FIND A ENTRY IN DIR 

35470 

JSR 

FBDRMH 


35480 

CH$TRT 

=* 


35490 

BIT 

FLAG 


35500 

BPL 

C$ATRT 


35510 

RTS 



35520 

C$ATRT 

-% 


35530 

LDX 

*$OC 

JCOPY FCB TO DIR TO CHANGE THE 

35540 

JSR 

PTFBDK 

> ATTR, 

35550 

JSR 

FBDR$$ 

5 KEEP FINDING 

35560 

JMP 

CH$TRT 


35570 5 




35580 J 




35590 } 




35600 ; 




35610 5 





35420 ; tn % % % % * *** * * % 1 * * *** % * * t * * * * * * t % % * * * * * * % * * 1 * * * % 1 * * % % % * t 

[ 35430 i * % 

[ 35440 I % FUNCTION 31 t CHANGE ATTRIBUTES * 

35450 ) t * 

35440 t Utn % % % % * % % * % % 11 * * * * * % * * * * * * ****** * * * ** * * % * **** % * * * * * % 


35470 I % 
354S0 i * 


ENTRY PARAMETERS 


* 

* 


f 35490 

; % 

REGISTER X I 

$1F 

t 

' 35700 i 

! * 

REGISTER Y?A J 

FCB ADDR, 

* 

[ 35710 i 

i % 



* 

35720 I 

% 

RETURNED VALUE \ 

$FF FILE NOT FOUND 

% 

|5730 i 

% 


DIR NO* IF SUCCESS 

% 

35740 1 

% 



% 

35750 1 

%% 

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * % % % % * % % % t * * * 

35740 1 





35770 


CHATRB=* 



35780 1 





35790 


JSR FCBINZ 



35800 


JSR CHATRT 



35810 


JMP SETRTN 




35820 

35830 


35970 

35980 


* * * * # * 1 * * * * % * * * % % t * 1 * % * *1 * * * * * * tttt ** % * * ********* * * * * * * 


35840 

f 

t 


* 

35850 

? 

t 

FUNCTION 32 1 COMPUTE FILE SIZE 

* 

35860 

f 

' 4 / 


* 

35870 

f 


35880 

f 

* 


* 

35890 

r 

* 

ENTRY PARAMETERS 1 

* 

35900 

f 

* 

REGISTER X \ $20 

* 

35910 

? 

* 

REGISTER Y»AJ FCB ADDRESS 

* 

35920 

* 

* 


* 

35930 


* 

RETURNED VALUE 1 

* 

35940 

f 

* 

REGISTER A t $FF FILE NOT FOUND 

* 

35950 

? 

* 

OTHERWISE RO»R1 CONTAIN FILE SIZE 

* 

35960 

f 

* 


* 


* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * $ * * * * 


35990 

CPFISZ= 

■t 


36000 ; 




36010 

JSR 

FCBINZ 


36020 

LDA 

*$00 

5INIT, RO SRI 

36030 

LDY 

*$21 


36040 

STA 

(DEREG)»Y 


36050 

INY 



36060 

STA 

(DEREG)»Y 


36070 

LDX 

*$0C 

5GO AHEAD TO FIND THE FILE 

36080 

JSR 

FBDRMH 


36090 

CPF$SZ= 

* 


36100 

BIT 

FLAG 

5FOUND? 

36110 

BF‘L 

C$FISZ 


36120 

RTS 



36130 

C$FISZ= 

* 


36140 

JSR 

GETENT 

5YES> SET HLREG ADDRESS OF THIS 

36150 

LDY 

*$OF 




r 36160 

LDA 

(HLREG)jY 

» GET THE NUMBER OF TOTAL RECORDS 

I 36170 

CLC 



36180 

LDY 

*$21 

? BE ADDED TO SUN STORED IN R0»R1 

f 36190 

ADC 

(DEREG) »Y 


36200 

STA 

(DEREG)»Y 


36210 

BCC 

CPtlSZ 


36220 

I NY 



36230 

LDA 

O 

O 


36240 

ADC 

(DEREG) »Y 


36250 

STA 

(DEREG)»Y 


36260 

CP$ISZ=o 

K 


36270 

JSR 

FBDR$$ 

fKEPT FINDING UNTIL WHOLE DIRECTORY 

36280 



»SEARCHED 

36290 

JMP 

CPF $SZ 


36300 1 





36310 ; * * * * % * **** % * ** * * ****** * * * * * * * * * * * * * * * * * * * * * * * * ******** * * * 


36320 » * * 

36330 i * FUNCTION 33 I SET RANDOM RECORD * 

36340 ! * * 

36350 » * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ******** 
36360 » * * 

36370 i * ENTRY PARAMETERS t * 

36380 J * REGISTER X l $21 * 

36390 » * REGISTER YjAJ FCB ADDRESS * 

36400 i * * 

36410 i * RETURNED VALUE J * 

36420 *» * REGISTER A \ IFF FILE HOT FOUND * 

36430 * * OTHERWISE ROjRI CONTAIN NUMBER OF * 

36440 } * DESIRED RECORD WITH RO BEING THE * 

36450 i * LEAST SIGNIFICANT BYTE * 

36460 i * * 


36470 5 ********************************************************* 
36480 5 


36490 

STRDRC= 

■% 


36500 } 




36510 

LDY 

*$OC 

»GET "EX' 

36520 

LDA 

(DEREG) fY 


36530 

STA 

TEMPI 


36540 

LDY 

*$20 

;get cr 

36550 

LDA 

(DEREG)»Y 


36560 

LSR 

TEMPI 

jRIGHT SHIFT ’EX' ONCE 

36570 

BCC 

S$RDRC 


36580 

NOP 


J THAT MEANS NUMBER 

36590 



5OF RECORDS SOULD BE ADDED BY $40 

36600 

ADC 

*$3F 


36610 

S$RDRC= 

* 


36620 

LSR 

TEMPI 

1 RIGHT SHIFT 'EX' AGAIN 

36630 

BCC 

ST$DRC 


36640 

NOP 


5 NUBMER OF RECORDS 

36650 



»SHOULD BE ADDED BY $80 

36660 

ADC 

*$7F 


36670 

ST$DRC= 

* 


36680 

LDY 

*$21 

»NOW PUT THE LOWER BYTE OF TOTAL NUMBER 

36690 

STA 

(DEREG) »Y 

5 TO THE RO 




■ 36700 INY 

136710 LDA TEMPI »THE HIGHER BYTE TO R1 

■36720 STA (DEREG)jY 

■36730 RTS 

' 36740 1 
36750 » 

36760 > 

36770 } 

36780 i 
36790 I 
36800 ; 

36810 i 

36820 i 

36830 ; % % ****** % % % % % % % % % t % * * % ****** ** * * * * * * % * % % * * * * % % % * * * * *** * 


36840 1 % * 

36850 1 * FUNCTION 34 1 SENT I/O BUFFER BACK TO DISK * 

36860 } * * 

36870 » *%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
36880 i * % 

36890 } * ENTRY PARAMETERS t * 

36900 1 * REGISTER X t $22 * 

36910 i % 


36920 ? **************** * * * * * * * * * * 1 * * * 1 * * * * * * % % * * * * * * * * * * ** * * '4c 


36930 




36940 

SIODSK— 

$ 


36950 } 




36960 

JMP 

SIOBDK 


36970 t 




36980 

RETURN- 

* 


36990 5 




37000 

LDA 

RTNFLG 

r DISK NEEDS TO CHANGE BACK? 

37010 

BEQ 

R$TURN 


37020 

LDA 

*$00 


37030 

TAY 



37040 

STA 

(DERE8))Y 


37050 

LDA 

CRTDRN 

5STORE BACK THE 'DR' 

37060 

BEQ 

R$TURN 


37070 

STA 

(DEREG)iY 


37080 

LDA 

F'RVDSK 

»GET RESERVED DISK NO. 

37090 

STA 

DERDSK 


37100 

JSR 

SELDSK 

5CHANGE BACK TO CURRENT DISK 

37110 

R$TURN- 

4. 


37120 

LDY 

RTNFLG+2 

>RETURN THE FLAG OR ADDR. NEEDED 

37130 

LDA 

RTNFLG+1 


37140 

RTS 



37150 

* END 




•54 •?<- 


Appendix 


B4 : Listing of BIOS 


37160 

?QUF'/M BIOS WRITTEN BY SHAO> JIAN-XI0N6 

‘ 37170 

JON JULY 1982 


f 371SO 

5ERROR NO, LISTING 

f 37190 

5$20 INDEX HOLE FOUND WHILE WRITING 

37200 

5$21 INDEX HOLE FOUND WHILE READING 

37210 

J$22 DRIVE NOT 

READY 

37220 

J$23 TRACK NOT 

HATCH 

37230 

> $24 DISK WRITING PROTECTION 

37240 

J$25 I/O DEVICE NOT DEFINED 

37250 

J$40 BUFFER AND DISK NOT HATCH 

37260 

;$80 PARITY ERROR 

37270 

*=$E41A 

> OF'BIOS START ADDR. 

37280 

START=$00 


37290 

I0BYTE=$03 

$ I/O BYTE 

37300 

C0UNTER=$04 

> PAGE NO. COUNTER 

37310 

DEREG=$09 

i WORK STORAGES 

37320 

HLREG=$OB 


37330 

HLREG1=$0D 


37340 

FLAG=$OF 


37350 

TEHP=$IF 


37360 

I0BFFG=$39 

5'FLUSH' FLAG 

37370 

CRTDSK=$3A 

> CURRENT DISK NO. 

37380 

BLKNB1=$42 

j BLOCK# 

37390 

SECNB1=$43 

J SECTOR# 

37400 

TKNDER=$44 

JPREVIOUS TRACK* WHICH THEN 

37410 


»CHANGE TO DESIRED TRACK# 

37420 

TRKDF:C=$45 

t DESIRED TRACK* 

37430 

DMAREG=$46 

JDHA ADDRESS 

37440 

TRKCRN=$48 

5HEAD POSITION TRACK* 

37450 

TKTMAX=$49 

»HAX TIHES FOR HATCHING TRACK# 

37460 

ERORFG=$4A 

JERROR FLAG 

37470 

STATFG=$4B 

J STATE FLAG 

37480 

IDBUFA=$4C- 


37490 

F‘AGNUB=$4E 

>PAGE COUNT 

37500 

ERTHAX=$4F 

iR/W HAX TIHES 

37510 

DVACIA=$C010 

»DISK I/O PORT 

37520 

DVPIAl=$COOO 

»DISK CONTROL 

37530 

DVF' I A2=$C002 

J DISK CONTROL 

37540 

CLACIA=$FCOO 

J CONSOLE I/O PORT 

37550 

F‘TACIA=$CF02 

5PRINTER I/O PORT 

37560 

SLACIA=$CFOO 

JSERIAL COHHUNICATION I/O PORT 

37570 

USACI1=$FB03 

JUSER USING I/O PORT 

37580 

USACI2=$F400 

JUSER USING I/O PORT 

37590 

IOBUF=$BOOO 

5 DISK I/O BUFFER ADDR. 

37600 

CCPSAT=$DOOO 

JCCP ENTRY NO. 1 

37610 

CCPST1=$D3F5 

JCCP ENTRY NO, 2 

37620 

BD0S=$D93F 

JBDOS ENTRY 

37630 

WHBCOT ,BYTE 

$28 

37640 

FRYCST .BYTE 

$62 

37650 

BKCONT .BYTE 

$40 >$00 

37660 

DIKCRT .BYTE 

$00 

37670 

F'AMTAB .WORD DIRBUF > HAF'ARO > CHKARO»$0000 JDIAK 


♦ WORD HIRBUF»MAPAR1» CHKAR1 j $0000 »HEAD TABLE 

37490 i 

37700 ; xxxnxnxxxttxx x % % * 1 * * % % 11 x x x * % x * * % % x % % * x * * % % t x % t % * * * x % 


1771 0 

; * 


t 

1 37720 

i % NUMBER 

0 1 INITIALIZE INPUT/OUTPUT PORT % 

37730 

} % 


* 

nr- 

37740 

} ttiittttt'.- 

iXXXXXXXXXXXX 

% % t % txxxxx xx % x x % x x % x % x xxxx x X xxxx % 

37750 




: 37760 

B00T = 'i 



37770 

f 



377S0 

LDA 

#$80 

5SET IOBYTE TO INDICATE SELECTING 

37790 



SPRINTER IN LIST FIELD AND 

' 37800 

STA 

IOBYTE 

^SELECTING CONSOLE IN CONSLE FIELD 

' 37810 

LDY 

#$00 

JSET DVF‘IAl + 1 BIT 2 TO ZERO-INDICAT 

' 37820 



>DVF'IAl IS DIRECTION REGISTER NOW, 

f 37830 

STA 

DVPIA1+1 


f 37840 

LDY 

#$40 

»SET DVPIA1 BIT 6 OUTPUT AND REST 

f 37850 



;INPUT 

37860 

STY 

DVPIA1 


37870 

LDY 

#$04 

5SET BACK INDICATING DOPIA1 IS 

' 37830 



SCONTROL GATE NOW 

37890 

STY 

DVPIA1+1 


37900 

LDA 

#$03 

JINITIAIZE CONSOLE PORT 

37910 

STA 

CLACIA 


37920 

LDY 

#$11 


37930 

STY 

CLACIA 


37940 

STA 

PTACIA 

5 INITIALIZE PRINTER PORT 

37950 

STY 

PTACIA 


37960 

STA 

SLACIA 

jINITIALIZE SERIAL COMMUN. PORT 

37970 

STY 

SLACIA 


37980 

LDA 

USACI1+3 

jINITIALIZE USER PORT1 

37990 

LDX 

#$FF 


38000 

STX 

USACI1+2 


38010 

LDY 

#$00 

5 INITIALIZE USER PORT2 

38020 

STY 

USACI2F1 


38030 

STY 

USACI2 


38040 

STY 

USACI2+3 


38050 

STX 

USACI2P2 


38060 

LDA 

#$04 


38070 

STA 

USACI2+1 


38080 

STA 

USACI2+3 


38090 

RTS 



38100 ; 




38110 f 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXtXXXXXXXXXXXXXXXXXXXXXXXXXX 

38120 5 

X 


* 

38130 ; 

X NUMBER 

1 : WARM 

BOOT * 

38140 I 

* 


* 

38150 i 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ************ 

38160 ; 




38170 

WBOOT= 

* 


38180 ; 




38190 

NOP 



38200 

LDA 

♦CCPSAT 

SSET STARTING ADDR, OF CCP FOR DMA 

38210 

LDX 

♦CCPSAT/25 

6 



30220 
38230 
| 38240 

38250 
38260 
38270 
38280 
38290 
38300 
38310 
38320 
38330 
38340 
38350 
38360 
38370 
38380 
38380 
38400 
38410 
38420 
38430 
38440 
38450 
38460 
38470 
38480 
38490 
38500 
38510 

JU J 4. V 

38530 

38540 

38550 

38560 

38570 

38580 

38590 

38600 

38610 

38620 

38630 5 

38640 

38650 i 

38660 

38670 

38680 

38690 

38700 

38710 

33720 

38730 ; 

38740 

38750 i 


JSR 

STDMA1 


LDA 

*$00 

r SELECT DRIVE A 

STA 

DIKCRT 


JSR 

DIKSEL 


LDA 

*$01 

i SELECT TRACK 1 

STA 

TRKDRC 


LDA 

*$00 

»SELECT SECTOR 00 

STA 

SECNB1 


LDA 

*$10 

5SET READ SECTOR FLAG 

STA 

FLAG 


W$OOT=* 



JSR 

RWDBS1 

5READ A SECTOR FROM DISK 

CLC 

LDA 

*$80 

5NO INCREASE DMAREG TO GET NEXT 

ADC 

DMAREG 

i SECTOR 

STA 

DMAREG 


BCC 

WB$OT 


INC 

DMAREGF1 


WB*OT=* 

INC 

SECNB1 

5SET SECTOR NUMBER WITHIN ONE TRACK 

LDA 

SECNB1 


CMP 

*$1C 

5ONE TRACK IS DONE? 

BNE 

UI00T 

JIF NOTfKEPT READING 

LDA 

♦DFBUFA 

»RECOVE DEFAULT BUFFER 

LDX 

♦DFBUFA/256 


JSR 

STDMA1 


LDA 

*$4C 


STA 

START+5 

» SET JMP BDOS AT$05 

STA 

START 

5SET JMF' WBOOT AT $00 

LDA 

*yBOOT 


STA 

STARTF1 


LDA 

*WB00T/256 


STA 

START+2 


LDA 

4BDOS 


STA 

START+6 


LDA 

♦BDOS/256 


STA 

ST ART $7 


LDA 

*$00 


STA 

IGBFFG 


JMP 

CCPSAT 


C0NTST= 

t 

» CONSOLE TEST FOR RECEIVE READY 

LDA 

CLACIA 

jTEST BIT 0 OF CLACIA FOR READY 

AND 

*$01 


BNE 

C$LTST 


RTS 


tIF NOT READY > RETURN WITH A=$00 

C$LTST= 

* 


LDA 

*$FF 

jIF READY t RETURN WITH A = $FF 

RTS 



CONING 


iREAD A CHARACTER FROM CONSOLE 


I 38740 

JSR 

CONTST 

If 38770 

BED 

CON IN 

j 1 38780 

LDA 

CLACIA+1 

1 3S790 

AND 

*$7F 

11 38SOO 

RTS 


I 38810 9 

1 38820 

CONTOT= 

t 

38830 } 

1 38840 

LDA 

CLACIA 

[ 38850 

AND 

+ $02 

1 38860 

BNE 

C$NTOT 

f 38870 

RTS 


1 38880 

C$NTOT= 

■% 

[ 38890 

LDA 

+ $FF 

f 38900 

RTS 


I 38910 ; 

• 38920 

CONOUT= 

l 

'T- 

38930 5 

38940 

JSR 

CONTOT 

38950 

BEQ 

CONOUT 

38960 

STX 

CLACIAT1 

38970 

RTS 


38980 5 

38990 

PRTTST= 

t 

39000 i 

39010 

LDA 

PTACIA 

39020 

AND 

*$02 

39030 

BNE 

P$TTST 

39040 

RTS 


39050 

F'$TTST = 

■* 

39060 

LDA 

t$FF 

39070 

RTS 


39080 j 

39090 

F’RTOUT = 

% 

39100 , 

39110 

JSR 

PRTTST 

39120 

BEQ 

PRTOUT 

39130 

STX 

PTACIA+1 

39140 

LDA 

PTACIA 

39150 

AND 

*$01 

39160 

BNE 

F'$TOUT 

39170 

RTS 


39180 

F'$TOUT= 

* 

39190 

LDA 

PTACIA+1 

39200 

CMP 

*$13 

39210 

BNE 

F’R$OUT 

39220 

RTS 


39230 

PR$OUT= 

t 

39240 

LDA 

PTACIA 

39250 

AND 

*$01 

39260 

BEQ 

F'R$OUT 

39270 

CMP 

*$11 

39280 

BNE 

PR$OUT 

39290 

RTS 



jTEST FOR CONSOLE'S READY,IF NOT 
»KEPT TESTING 

5IF READY,READ A CHARACTER 
i MASK OFF IT'S BIT 7 

,CONSOLE TEST FOR TRANSMIT READY 
5TEST BIT! OF CLACIA FOR READY 

ilF NOT READY,RETURN WITH A=$00 
»IF READY,RETURN WITH A=$FF 

»OUTPUT A CHARACTER TO CONSOLE 
5KEPT TESTING UNTIL IS READY 
»SENT A CHARACTER TO CONSOLE 

5PRINTER TEST FOR TRANSMIT READY 
? TEST BIT1 OF PTACIA FOR READY 

iIF NOT READY,RETURN WITH A=$00 
JIF READY, RETURN WITH A = $FF 

»PRINTER OUTPUT 

5KEPT TESTING,UNTIL IS READY 

5OUTPUT A CHARACTER 
j TEST FOR RECEIVING READY 

?IF NOT,RETURN 

JIF READY,READ A CHARACTER 
j CONTROL-S 

5IF NOT CONTROL-S RETURN 


SIF CONTROL-S WAIT UNTL CONTROL-Q 
US RECEIVED 


39300 ; 

39310 SRLTST-* 

39320 9 

39330 LDA SLACIA 


39340 

AND 

*$01 

I 39350 

BNE 

S$LTST 

39340 

RTS 


39370 

S$LTST= 

* 

393S0 

LDA 

*$FF 

39390 

RTS 


39400 9 
39410 

SRLIN=* 


39420 9 
39430 

JSR 

SRLTST 

39440 

BEQ 

SRLIN 

39450 

LDA 

SLACIA+1 

39460 

AND 

*$7F 

39470 

RTS 



39480 9 


39490 

SRLTQT=* 

39500 9 


39510 

LDA SLACIA 

39520 

AND #$02 

39530 

BNE SILTOT 

39540 

RTS 

39550 

S$LTOT=* 

39560 

LDA #$FF 

39570 

RTS 

395B0 9 


39590 

SRLOUT=* 

39600 9 


39610 

JSR SRLTOT 

39620 


39630 

BEQ SRLOUT 

39640 

STX SLACIA+1 

39650 

RTS 

39660 9 


39670 9 


396BO 

OUTBFF=* 

39690 9 


39700 

LDY #$00 

39710 

OU$BFF=* 

39720 

LDA (DEREG),Y 

39730 

CMP #$24 

39740 

BNE G$TBFF 

39750 

RTS 

39760 

0$TBFF=* 

39770 

TAX 

39780 

JSR CONOUT 

39790 

INY 

39800 

BNE OUfBFF 

39810 9 


39820 9 


39830 9 



9SERIAL COMMUN. RECEIVE READY TEST 
9THE BIT 0 OF SLACIA FOR READY 
9NOT,RETURN WITH A=$00 

5READY,RETURN WITH A=$FF 

9KEPT TESTING,UNTIL IS READY 

5READ A CHARACTER 
9MASK OFF IT'S BIT 7 

9SERIAL COMMUN, TRANSMIT READY TEST 
9TEST BIT 1 OF SLACIA FOR READY 

9 IF NOT,RETURN WITH A=$00 
9 IF READY,RETURN WITH A = $FF 

9KEPT TESTING,UNTIL SLACIA IS 
9 READY 

9OUTPUT A CHARACTER 


39840 

39850 

39860 

39870 

39880 

39890 

39900 

39910 

39920 

39930 

39940 


I *: ** * **** ** * * * * '4: * * ****** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 

* * 

* NUMBER 2 J SAMPLE THE STATUS OF THE CURRENTLY * 

* ASSIGNED CONSOLE DEVICE * 

* * 

* * * * * * * * * * * * * * * * * * * t * * * * * * * * * * * * * * * % * * * * * * * % * * * * * * * * * * * 

* * 

* 
* 
* 
* 


* RETURNED VALUE 


REGISTER A 1 $FF READY TO READ 
$00 NOT READY 


f 39950 

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 

f 39980 

7 




[ 39970 


CSLTET = 

* 


| 39980 

7 




39990 


LDA 

IOBYTE 

jGET THE CONSLE FIELD OF IOBYTE 

40000 


AND 

*$03 


40010 


BNE 

C$LTET 


40020 


JMP 

CONTST 

5 IF *$00 TO CONSOLE TEST 

40030 


C$LTET= 

* 


40040 


CMP 

*$01 


40050 


BNE 

CS$TET 


40060 


JMP 

PRTTST 

5 IF *$01 TO PRINT TEST 

40070 


CS$TET= 

* 


40080 


CMP 

*$03 


40090 


BNE 

CSL$ET 


40100 


JMP 

USRTST 

5IF *$03 TO USER TEST 

40110 


CSL$ET= 

* 


40120 


JMP 

SRLTST 

»IF *$02 TO SERIAL TEST 

40130 ; 





40140 5 

****** * * * * *** *** * * ****** ********** * * ** *** * * * * * * * * ** * *** 

40150 } 

* 



* 

40160 i 

* 

NUMBER 

3 1 READ FROM 

THE CURRENT ASSIGNED CONSLE * 

40170 ; 

* 


DEVICE 

* 

40180 i 

* 



* 

40190 } 

******************************************************* 

40200 ; 

* 



* 

40210 } 

* 

RETURNED 

VALUE 1 

* 


40220 

40230 

40240 

40250 


* REGISTER A l CHARACTER TO BE READ IN * 

* * 
******************************************************* 


40260 

CLINN=* 





40270 , 






40280 

LDA 

IOBYTE 

J GET 

THE 

CONSOLE FIELD OF IOBYTE 

40290 

AND 

*$03 




40300 

BNE 

C$INN 




40310 

CLIN$=* 





40320 

JMP 

CONIN 

»IF 

*$00 

TO CONSOLE IN 

40330 

C$INN=* 





40340 

CMP 

*$01 




40350 

BNE 

CL$NN 




40360 

JMP 

SRLIN 

J IF 

*$01 

TO SERIAL COMMUNICATOR IN 

40370 

CL$NN=* 








40380 
40390 
40400 
40410 
40420 
40430 
40440 
I 40450 
f 40440 
40470 
40480 
40490 
40500 
40510 
40520 
40530 
40540 
40550 ; 
40560 
40570 
40580 
40590 
40600 
40610 
40620 
40630 
40640 
40650 
40660 
40670 
40680 
40690 
40700 5 
40710 1 
40720 i 
40730 5 
40740 i 
40750 ; 
40760 } 
40770 i 
40780 ; 
40790 » 
40800 ; 
40810 ; 
40820 5 
40830 
40840 f 
40850 
40860 
40870 
40880 
40890 
40900 
40910 


CMP *$03 

BNE CLIN? »IF *$02 TO CONSOLE IN 

JMP USRIN )IF *$30 TO USERIN 

$ Y % T I- % % * % t- *• % % % * % % % T Y k- t- t Y- % % Y T 4- Y $ 4 YI % *. % * % % T yc % Y Y $ $ % Y % % $ Y Y 


% % 

% NUMBER 4 1 OUTPUT CHARACTER TO THE CURRENTLY * 

* ASSIGNED CONSOLE DEVICES t 

* * 

% % % %t% % % % % t % % % %t%%%%% % % % %11% % % % % *t% * % t %%%%t%%% %111111%t 
t % 

% ENTRY PARAMETERS 1 * 

* REGISTER A 1 CHARACTER TO BE OUTPUT * 

* * 


11 % * % % % % % t % % % 11 % 111 * t I * t 11 * % * $ t % t % % t % 1t1 Y % t 


CLOUTT =t 


TAX 

LDA IOBYTE 

i GET 

AND *$03 

BNE CIOUTT 

CLOU$T =t 

JMP CONOUT 

C$OUTT=* 

CMP *$01 

BNE CL$UTT 

»IF 

JMP SRLOUT 

CL$UTT=4 

CMP *$03 

i IF 

BNE CLOU$T 

»IF 

JMP USROUT 

i IF 


i GET CONSOLE FIELD OF IOBYTE 


i IF *$00 TO CONSLE OUT 


»IF *$01 TO SERIAL COMMUNICATON OUT 


4* I :jc * % % %%t %%%% % %%% 11 * * % I % % %% ttt %% %%%%%%%%%%% % % % 


% % 

% NUMBER 5 1 OUTPUT CHARACTER TO THE CURRENTLY % 

% ASSIGNED LIST DEVICE * 

% % 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
% % 

% ENTRY PARAMETERS l * 

* REGISTER A 1 CHARACTER TO BE OUTPUT * 

* * 


* * *c * *: * * * *: -^ *c * * * *c ^; * *: *: 4c # * * j*- * '* * * ^. # * * *; * * * *: *r*c * * ***** 


LIT0UT=4 



TAX 

LDA IOBYTE 

AND *$CO 

BNE L$TOUT 

LITO$T=* 

»GET LIST FIELD OF 

IOBYTE 

JMP CONOUT 

L$T0UT=4 

1 IF *$00 TO CONSLE 

OUT 



I 40920 


CMP 

*$01 


[ 40930 


BNE 

LI$OUT 


40940 


JMP 

SRLOUT 

5 IF *$01 TO SERIAL COMMUN, OUT 

1 40950 


LIfOUT 

=* 


40940 


CMP 

*$03 


40970 


BEG 

LITO$T 

» IF *$03 TO CONSOLE 

40980 


JMP 

PRTOUT 

jIF *$02 TO PRINTER OUT 

40990 i 





41000 ; 

rm t % * # % t % % % % % %%%% * % % * * t ************* * * * * * * * * * * * * * * * * 

41010 1 

* 



* 

41020 ; 

* 

NUMBER 

6 *. OUTPUT A 

CHARACTER TO THE CURRENTLY * 

41030 ; 

* 


ASSIGNED 

PUNSH DEVICE * 

41040 ; 

* 



* 


41050 
43060 
41070 
41080 
41070 
41100 
41110 
41120 
41130 1 
41140 i 
41150 i 
41160 i 
41170 ; 
41180 > 
41190 J 
41200 5 
41210 5 
41220 5 
41230 5 
41240 ; 


************* * % % * **** * ********* * * ** %******** % %** *** * *t 
$ * 

* ENTRY PARAMETERS 1 * 

* REGISTER A 1 A CHARACTER TO BE OUTPUT * 

* * 
** * * t %** % ** ** 1*% * * % % ***** *** * t * % * t * %* * * ** ** 1% * % * %*** * * 


PUHOUT = * 


JRESERVE FOR FURTHER USE 


************ * * * * * * * *** * % * * * ** * *** ********** * * * * * * * * * % * % 
* * 

% NUMBER 7 1 READ A CHARACTER FROM THE CURRENTYLY * 

% ASSIGNED READER DEVICE * 

* * 

* * * * * * % % * * * * * * * * * ******** * * * * * * * * * * ****** * *** * * * * * * * % ** 
* * 

* RETURNED VALUE 1 * 

* REGISTER A 1 A CHARACTER BE READ IN 

* 

* * * * % *:* * * * * ** * ** * * * * * ** * % % % t % £ * t % t % % % % $ % t % % % 1 4 : % % % % % % % % 


41260 

41270 

41280 

41290 

41300 

41310 

41320 

41330 

41340 

41350 

41360 

41370 

41380 

41390 

41400 

41410 

41420 

41430 

41440 

41450 


READIN-* 

USRTST=* 

USROUT=* 

USRIN=* 

LDA *$25 

JMP ERROR 

DELAYB=$ 


INC 
INC 
INC 
INC 
RTS 

DELYMR*=*+1 


DELYMR 

DELYMR 

DELYMR 

DELYMR 


j RESERVE FOR FURTHER USE 

PRESERVE FOR FURTHER USE 
>AS ABOVE 

;as above 


;DELAY ROUTINE 


DELYMS=* 


»DELAY 1 MS 






DELAYS 


f 41540 
| 41550 

f 41570 
f 41580 
41590 
41400 
41610 i 
41620 
41630 1 
41640 
41650 
41660 
41670 
41680 
41690 
41700 
41710 
41720 
41730 5 
41740 ; 
41750 ? 
41760 i 
41770 i 
41780 5 
41790 5 
41800 
41810 > 
41820 
41830 
41840 
41850 
41860 
41870 
41880 
41890 
41900 
41910 
41920 5 
41930 
41940 ? 
41950 
41960 
41970 
41980 


JSR 
DEY 

BNE DELYHS 

RTS 

DLYHSi=* I DELAY (X) MS 

LDX *$OC 

D$YMS1=* 

LDY FRYCST 

JSR DELYHS 

DEX 

BNE D$YHS1 

DL$MS1=* 

RTS 

DELYUS=* ?DELAY (X)*100 US 

LDA FRYC-ST 

D$LYUS = #. 

BIT $00 

SEC 

SBC *$05 

BCS D$LYUS 

DEX 

BNE DELYUS 

RTS 


% 11 % * * % % % * * t % t * 11 * % % % t % % % % t * t % % % * % $ '* * t t '$ % * t * t % t * t t 111 
% % 
% NUHBER 8 1 POSITION HEAD TO TRACK 0 * 
t * 
11 % % % % % $ tttt'kt % % % % % % % % 11 * t % % $ % tttttttt'k't t % 11 '* % 11 %%%%%% 


HOMEHD=* »HOHE HEAD TO ZERO 

JSR STF’IN 

JSR DLYMS1 

STY TRKCRN 

STY TKNDER 

H$HEHD=* 

LDA *$02 

BIT DOPIA1 

BEQ DLYMS1 

JSR STPOUT 

BEQ H$HEHD 

ASLDS1= J(A) * 2'S POWER OF (X) 

ASL A 

ROL TEHP 

DEX 
BNE 


ASLDS1 


ADC0F1=* 


42000 > 
mo 
inm > 

42030 CLC 

ADC HLREG 

STA HLREG 

42060 LDA TEMP 


[ 42070 

ADC 

HLREG+1 

f 42080 

STA 

HLREG+1 

f 12090 

RTS 


[ 42100 i 



I 42110 

ADCIGF= 

* 

f 42120 5 



1 42130 

LDX 

♦IOBUF 

I 42140 

STX 

HLREG 

f 42150 

LDX 

♦IOBUF/256 

f 42160 

STX 

HLREG+1 

42170 

JMP 

ADCOF1 

42180 1 



42190 

0IKSEL= 

i GET DESIRED DISK PARAMETERS 

42200 ; 



42210 

LDX 

DIKCRT 

42220 

LDA 

DKCONTiX 

42230 

STA 

DMF'IAl 

42240 

LDA 

*$FF 

42250 

STA 

DMPIA2 

42260 

D$KSEL= 


42270 

LDA 

*$10 

42280 

CPX 

*$01 

42290 

BEQ 

DI$SEL 

42300 

LDA 

*$01 

42310 

DI$SEL= 

* 

42320 

BIT 

DMF'IAl 

42330 

RTS 


42340 j 



42350 i % % % 1 4 * t * * % t % t* 4: t % 4: % 4 :1 % % % 4; 1 4:4 * * * 4: % % t i * i % %%%%%%%% * * * $ t t % 4: 

42360 i * 


* 

42370 » * 

NUMBER 

9 J SELECT DISK * 

42380 i * 


* 

42390 > % t * t 4: 11 4: * t * % 4; t * * 4 1 % t * % t %t%% % % * % * 1t * 4: * 4- llffll t % % t 1 % 1 4:4 * * 

42400 » * 


* 

42410 i t 

ENTRY PARAMETERS \ * 

42420 i * 

REGISTER A t DISK NUMBER * 

42430 t 


* 


42450 » 



42460 

DKSEL1= 

* 

42470 i 



42480 

STA 

DIKCRT JSTORE DESIRED DISK NO. 

42490 

LDX 

*$03 5*8 TO GET OFFSET 

42500 

JSR 

ASLDS1 

42510 

LDX 

♦F’AMTAB 

42520 

STX 

HLREG 

42530 

LDX 

♦ F’AMTAB/256 




1 42540 


SIX 

HLREG+1 


I 42550 


LDX 

#fOO 


f 42560 


STX 

TEMP 


[ 42570 


JSR 

ADCOF1 

;get desired entry addr, 

1 42580 


JSR 

DIKSEL 

5GET PARA* l TEST DISK READY 

1 42590 


BNE 

D$SEL1 


1 42600 


JMP 

HOMEHD 

;READY! HOME HEAD 

42610 


D$SEL1= 

* 


42620 


JMP 

TRKPS1 

iIF DISK NOT READY»ERR 

42630 1 





42640 ! 

utttt***** 

* % * * 4c % 4c *: % 4c :4c 4:4c t % 1 4: 1 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4444 4 4 4 4 

42650 > 

t 



4 

42660 > 

* 

NUMBER 

10 1 SET 

TRACK NUMBER 4 

42670 i 

■4/ 

T- 



4 

42680 5 

% % % % % % * % % *% % % %11111*11%%%*%t% % % % % ** % % %t% % %%%%%t*t% % *% % % 

42690 ! 

i 



4 

42700 ; 

* 

ENTRY PARAMETERS 1 

4 

42710 1 

% 

REGISTER A l 

TRACK NUMBER 4 

42720 1 

% 



4 


42730 

42740 

42750 

42760 

42770 

42780 

42790 

42800 

42810 

42820 

42830 

42840 

42850 

42860 

42870 

42880 

42890 

42900 

42910 

42920 

42930 

42940 

42950 

42960 

42970 

42980 

42990 

43000 

43010 

43020 

43030 

43040 

43050 

43060 

43070 


t % * % % % % t % 444444 4 4 % t % % % 4 % % % 444 % 4 t % 1 4 4 % 4 4 1 4 4 4 4 4 4 4 1 4 4 4 % 4 % % 


SETTR1=4 

STA 
RTS 


TRKDRC 


44444444 4 4 4 4 'I 4 4 44 4 4 4 4444444444444 * 4 4: '4: 4 4 4 4 4 44444444 4 4 44 4 
% % 
4 NUMBER 11 J SET SECTOR NUMBER 4 
t 4 
4 % 4 4 44 4 * 4 4444 444 4 4 4 4 4 4 % t 4 44444444 4 4 444444 1 4 '4: 4444444444 4 
4 4 
4 ENTRY PARAMETERS l 4 
4 REGISTER A l SECTOR NUMBER * 
4 * 
4 4 4 :4c 4 4 % 4 4 4 4 4 4 4 4 % % 4 4 4 4 4 % 4 4 4 4 44 1 444444 4444 4 4 4444 4 4 4 4 4 4 % 4 4 


SETSC1=4 

STA 
RTS 


SECNB1 


44444444444444444444444444444444444444444444444444444444 
4 4 

4 NUMBER 12 *. SET BLOCK NUMBER 4 

4 4 

^ dr *lr dr dr dr *Xr *JLf dr dr dr dr dr dr dr dr *lr dr *|r dr dr dr dr dr dr dr dr dr dr dr dr dr dr dr dr *lr dr *JLr dr *ir d dr dr dr *dr *Jr dr dr dr d dr dr 
* *• *• T T 1 t T* T T ** n 1 * t ** iP T t * *P jP zP ^ ip «P ^ «P ^ ^ <P q% ^ *P ^ *P zp ^ r^ rp. rjv ^ ip p /fw p q*. 

4c * 

4 ENTRY PARAMETERS ! 4c 

4c REGISTER A 1 BLOCK NUMBER 4c 

4c 4c 

4 4 4 *4f '4 f 'V *4’ *4 *4 '4 *4 '4 *4 *JLr 4 dr a 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 -JLr 4 4 4 4 

ip p ip ip ip ip ip zp zp zp zp zp zp zp ip zp zp zp zp zp zp zp zp zp zp zp zp ip zp zp zp p zP 4p zp zp zp zp P p zP zP ip zp jfm zP zP zP /P P zP zP zp p p P 

SETBL1=* 




43110 ; 

43120 j ****** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 


43130 5 * * 

43140 i * NUMBER 13 1 SET DMA * 

43150 f * * 

43160 S ******* * * * * * * * * * * * * * * * * * * * ****** * * * * * * * * * * * * * * * * * * * * * * * 

43170 t * * 

43180 5 * ENTRY PARAMETERS 1 * 

43190 J * REGISTER AiX l DMA ADDRESS * 

43200 J * * 


43210 5 ******* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ********* 

43220 t 


43230 


STDMAl= 

* 


43240 

f 




43250 


STA 

DMAREG 


43260 


STX 

DMAREGT1 


43270 


RTS 



43280 

? 




43290 


SEKIHL= 

* 

j SEEK INDEX HOLE 

43300 

7 




43310 


LDA 

DVPIA1 


43320 


BMI 

SEKIHL 


43330 


S$KIHL= 

* 


43340 


LDA 

DVPIA1 


43350 


BPL 

S$KIHL 


43360 


RTS 



43370 

? 




43380 


STPOUT= 

* 

»STEP OUT ONE TRACK 

43390 

? 




43400 


LDA 

DVPIA2 

»SET BIT 2 OF DVPIA2 

43410 


ORA 

*$04 


43420 


BNE 

STEP 


43430 


STPIN=* 


I STEP IN ONE TRACK 

43440 


LDA 

*$FB 


43450 


AND 

DVPIA2 

»RESET BIT 2 OF DVPIA2 

43460 


STEP=* 



43470 


STA 

DVPIA2 

j STEP IN OR OUT ACCORDINGLY 

43480 


JSR 

DLtMSl 

»DELAY! 

43490 


AND 

*$F7 

iSENT A PULSE TO STEP HEAD 

43500 


STA 

DVPIA2 


43510 


JSR 

DL$MS1 


43520 


JSR 

DL$MS1 


43530 


ORA 

*$08 


43540 


STA 

DVPIA2 


43550 


JSR 

DL$MS1 

jDELAY! 

43560 


LDX 

*$08 


43570 


JMP 

D$YMS1 

i DELAY! 

43580 

y 




43590 


SIHSDK= 

* 

»SEEK HOLE »SET ACIA 

43600 

f 




43610 


JSR 

SEKIHL 



43620 
43630 
43640 
43650 
43660 
43670 > 
43680 
43690 ; 
43700 
43710 
43720 
43730 
43740 
43750 
43760 5 
43770 
■ 43780 
43790 
43800 
43810 i 
43820 
43830 5 
43840 
43850 
43860 
43870 
43880 
43890 
43900 
43910 
43920 
43930 
43940 
43950 5 
43960 
43970 5 
439S0 
43990 
44000 
44010 
44020 
44030 
44040 
44050 
44060 
44070 
44080 » 
44090 
44100 ; 
44110 
44120 
44130 
44140 
44150 


LDA 

*$03 

STA 

DUACIA 

LDA 

*$58 

STA 

DMACIA 

RTS 


LDHEAD 

=* 

LDA 

*$7F 

AND 

DUPIA2 

L$HEAD 

=* 

STA 

DVPIA2 

LDX 

*$28 

JMP 

D$YHS1 


»LOAD HEAD 
»RESET BIT 7 OF 

5LOAD OR UNLOAD 
»DELAY! 


DVPIA2 

HEAD ACCORDINGLY 


UNLDHD=* i UNLOAD HEAD 

LDA *$80 ?SET BIT 7 OF DVAPIA2 

ORA DVPIA2 

BNE L$HEAD 


URTDIK=* 


5URITE A BYTE TO DISK 


LDA 

DUF'IAl 

BPL 

U$TDIK 

LDA 

DVACIA 

LSR 

A 

LSR 

A 

BCC. 

WRTDIK 

STX 

RTS 

DVACIA 

UtTDIK 

=* 

LDA 

*$20 

JMP 

ERROR 


>INDEX HOLE FOUND? 


5 READY? 


?IF NO,KEEP TESTING! 

»WRITE A BYTE TO DISK 


»IF INDEX HOLE FOUND» ERR! 


REDDIK=* 


5READ ABYTE FROM DISK 


LDA 

DVPIA1 

BPL 

R$DDIK 

LDA 

DVACIA 

LSR 

A 

BCC 

REDDIK 

LDA 

RTS 

DVACIA+1 

R$DDIK 

=* 

LDA 

*$21 

JHP 

ERROR 


»INDEX HOLE FOUND? 
1 FOUNDf ERROR! 

5 READY? 


»IF NO, KEEP TESTING 
JREAD IN A CHAR, 


»INDEX HOLE FOUND,ERROR! 


TRKPSA=* JPUT HEAD TO DESIRED TRACK 

LDX DIKCRT 5DESIRED DISK READY? 

JSR D$KSEL 

BEQ T$KPSA 

TRKPS1=* 

LDA *$22 5NOT READY,ERROR! 


44160 

144170 

44180 
44190 
44200 
44210 
44220 
44230 
44240 
44250 
44240 
44270 
! 44280 
f 44290 
[ 44300 
44310 
44320 
44330 
44340 
44350 
44360 
44370 
44380 
44390 
44400 
44410 
44420 
44430 
44440 
44450 
44460 > 
44470 
44480 i 
44490 
44500 
44510 
44520 
44530 
44540 
44550 } 
44560 
44570 t 
44580 
44590 
44600 
44610 
44620 
44630 
44640 
44650 
44660 
44670 
44680 
44690 


JMF‘ 

ERROR 


T$KF'SA= 

* 


LDA 

TKNDER 

5 CURRENT DESIRED TRACK = 

CMP 

TRKCRN 

5CURRENT HEAD POSITION? 

BEG 

TR$F’SA 

»IF EQUAL» FINISH STEPIN6 

BCS 

TRK$SA 

t IF GREATERiSTEP IN ONE TRACK 

JSR 

STF'OUT 

$ OIF LESS»STEP OUT ONE TARACK 

LDA 

*$99 

»AND SET 'A' TO 99 INDICATING 

BCC 

TRKF'$A 

j SUBTRACTING ONE TRACK 

TRK$SA= 

% 


JSR 

TXA 

STF'IN 


TRKF’$A= 

SED 

* 


ADC 

TRKCRN 

i+ (OR -) ONE TO (OR FROM) 

STA 

TRKCRN 

}CURRENT HEAD POSITION 

CLD 



JMP 

TiKPSA 

i KEEP STEPIN6 UNTIL DONE 

TR$PSA= 

* 


CMP 

*$43 

5CHECK CURRENT TRACK RANGE 

LDA 

DVPIA2 

; IF IN NO * 43-76 > RESET BIT 7 

AND 

*$BF 

>OF DVPIA2 TO ADJUST CURRENT 

LDY 

NOP 

*$00 


BCS 

TRKPSI 


LDA 

*$40 

t IF IN NO.0-42 1 SET BIT 7 

ORA 

DVPIA2 

j OF DVACIA 

TRKPS$= 

* 


STA 

RTS 

DVPIA2 


TRKF‘SH= 

* 


JSR 

TRKPSA 

J POSITION HEAD 

LDA 

♦IOBUF 

>SET DISK I/O BUFFER ADDR» 

STA 

IOBUFA 


LDA 

♦IOBUF/256 


STA 

IOBUFA+1 


JMP 

LDHEAD 

JLOAD HEAD 

TKNMTH= 

% 

;match track* 

LDA 

*$05 

»SET MAX. TRACK READ TIMES 

STA 

TKTMAX 


TKNM$H= 

% 


JSR 

SIHSDK 

i SEEK INDEX HOLE» SET DUACIA 

T$NMTH= 

* 


JSR 

REDDIK 

>READ A BYTE INTO 'A' 

TK$MTH= 

* 


CMP 

*$43 

iFIND TRACK IDENTIFICATION 

BNE 

T$NMTH 

JNO. $43 l $57 

JSR 

REDDIK 


CMP 

*$57 


BNE 

TK$MTH 



44700 
44710 
44720 

1 44730 

44740 

44750 

44760 

44770 

44730 

44790 

44SOO 

44810 

44820 

44830 

44840 

44850 

44860 

44870 » 

44880 

44890 ! 

44900 

44910 

44920 

44930 

44940 

44950 

44960 

44970 

44980 

44990 

45000 

45010 

45020 

45030 

45040 

45050 

45060 

45070 

45080 

45090 

45100 

45110 

45120 

45130 

45140 

45150 

45160 

45170 

45180 

45190 

45200 

45210 

45220 

45230 


JSR 

REDDIK 

»CHECK TRACK NO, 

CMP 

TKNDER 


BNE 

TKN$TH 


RTS 


jIF MATCH,RETURN! 

TKN$TH= 

t 

i IF NOT,HOME HEAD AND TRY AGAIN 

DEC. 

TKTMAX 

5MAX, TIME EXCEED? 

BEG 

TKNMT$ 


LDA 

TKNDER 

5NO? SAME CURRENT DESIRED NO, 

PHA 



JSR 

HOMEHD 

»HOME HEAD! 

PL A 



STA 

TKNDER 

>RECOVE TRACK NO, 

JSR 

T$KPSA 

»POSIT ION HEAD AGAIN 

JMP 

TKNMfH 

jMATCHT THEM AGAIN! 

TKNMT$= 

t 


LDA 

*$23 

f MAX, EXHAUSTED r ERROR! 

JMP 

ERROR 


WRTTKS= 

t 

5WRITE A TRACK TO DISK 

LDA 

*$20 

»INDEX HOLE FOUND! 

BIT 

DVPIA1 


BNE 

W$TTKS 


LDA 

*$24 

»IF FOUND, ERROR! 

JMP 

ERROR 


W$TTKS= 

* 


JSR 

TKNMTH 

JCHECK IF TRACK NO, ARE MATCHED 

LDX 

*$04 

j DELAY! 

JSR 

DELYUS 


LDA 

*$FE 

}ENABLE ERASING 

AND 

DVPIA2 


STA 

DMPIA2 


LDX 

*$02 

jDELAY! 

JSR 

DELYUS 


LDA 

*$FD 

,ENABLE WRITING 

AND 

DUPIA2 


STA 

DMPIA2 


LDX 

*$03 

j DELAY! 

JSR 

DELYUS 


LDX 

*$76 

jWRITE START FLAG $76 

JSR 

WRTDIK 


LDX 

*$OE 

;SET 14 PAGES 

STX 

PAGNUB 


LDY 

*$00 


WR$TKS= 

* 


LDA 

(IOBUFA)jY 

JGET A BYTE FROM DISK I/O 

TAX 


i BUFFER AND WRITE IT 

JSR 

WRTDIK 

1 TO THE DISK 

I NY 



BNE 

WR$TKS 


INC 

IOBUFA+1 


DEC 

PAGNUB 

5KEEP DOING UNTIL 14 PAGE DONE 

BNE 

WR$TKS 


LDX 

*$47 

5WRITE END FLAG 


f 45240 

JSR 

WRTDIK 

f 45250 

LDX 

4 $53 

[ 45260 

JSR 

WRTDIK 

1 45270 

LDA 

DVPIA2 

| 45280 

ORA 

*$01 

[ 45290 

STA 

DVPIA2 

45300 

LDX 

*$05 

45310 

JSR 

DELYUS 

45320 

LDA 

DVPIA2 

45330 

ORA 

*$02 

45340 

STA 

DVPIA2 

45350 

LDA 

4I0BUF/256 

45360 

STA 

IOBUFA+1 

45370 

RTS 


45380 ; 

45390 

REBTKS= 

t 

45400 j 

45410 

JSR 

TKNMTH 

45420 

R$DTKS= 

t 

45430 

JSR 

REDDIK 

45440 

CMP 

*$76 

45450 

BNE 

R$DTKS 

45460 

LDX 

*$0E 

45470 

LDY 

*$00 

454B0 

STY 

ERORFG 

45490 

LDA 

*$01 

45500 

RE$TKS= 

t 

45510 

BIT 

DVACIA 

45520 

BEQ 

RE$TKS 

45530 

LDA 

DVACIA+1 

45540 

BVC 

RED$KS 

45550 

LDA 

*$80 

45560 

STA 

ERORFG 

45570 

R$$TKS= 

t 

455S0 

CLC 


45590 

RTS 


45600 

RED$KS= 

% 

45610 

BIT 

STATFG 

45620 

BPL 

REDTK$ 

45630 

CMP 

( IOBUFA ) ? Y 

45640 

BEQ 

REDTK$ 

45650 

LDA 

*$40 

45660 

STA 

ERORFG 

45670 

BNE 

R$$TKS 

45680 

REDTK$= 

% 

45690 

STA 

(IOBUFA)?Y 

45700 

LDA 

*$01 

45710 

INY 


45720 

BNE 

RE$TKS 

45730 

INC 

IOBUFA+1 

45740 

DEX 


45750 

BNE 

RE$TKS 

45760 

LDA 

♦IOBUF/256 

45770 

STA 

IOBUFA+1 


?DISABLE WRITING 

?DELAY! 

?DISABLE ERASING 

5 RECOVE I/O BUFFER ADDR, 

?READ A TRACK 
?MATCH TRACK NO, 

5FIND DATA AREA START FLAG 

5SET TOTAL PAGE NO, 14 
ilNIT ERR FLAG 

?READY? 

5READ A BYTE 
?PARITY ERR? 
rIF IS? SET ERR FLAG 

5RESET CARRY TO INDICATE ERR 

? YES? COMPARE IT WITH THE ONE 
SIN THE I/O BUFFER READ IN BEFORE 
? IF NOT? SET ERR FLAG 


? ONE PAGE DONE? 

?YES? INCREAMENT HIGH BYTE 

?14 PAGE DONE? 

?RECOVE I/O BUFFER ADDR. 


| 45780 

SEC 


45790 

RTS 


45300 » 

' 45810 

WRTTRK= 

* 

45S20 » 

45830 

LDA 

#$A0 

45840 

STA 

STATFG 

45850 

JSR 

TRKPSH 

45860 

LDA 

#$04 

45870 

STA 

ERTMAX+1 

45880 

U$TTRK= 

t 

45890 

JSR 

WRTTKS 

45900 

JMP 

RE$TRK 

45910 ; 

45920 

REDTRK= 

% 

45930 { 

45940 

LDA 

#$40 

45950 

STA 

STATFG 

45960 

JSR 

TRKPSH 

45970 

LDA 

#$04 

45980 

STA 

ERTMAX 

45990 

RE$TRK= 

■t 

46000 

LDA 

#$06 

46010 

STA 

ERTMAX+2 

46020 

REDT $K= 

t 

46030 

JSR 

REDTKS 

46040 

BCC 

REREAD 

46050 

BIT 

STATFG 

46060 

BMI 

R$DTRK 

46070 

LDA 

t$80 

46080 

ORA 

STATFG 

46090 

STA 

STATFG 

46100 

BNE 

RE$TRK 

46110 

R$DTRK= 

* 

46120 

JMP 

UNLDHD 

46130 

NOP 


46140 

REREAD= 

* 

46150 

LDA 

#I0BUF/2' 

46160 

STA 

IOBUFA+1 

46170 

DEC 

ERTMAX+2 

46180 

BNE 

REDT $K 

46190 

BIT 

ERORFG 

46200 

BMI 

RE$EAD 

46210 

BIT 

STATFG 

46220 

BV3 

R$READ 

46230 

DEC 

ERTMAX+1 

46240 

BNE 

W$TTRK 

46250 

R$READ= 

* 

46260 

LDA 

ERORFG 

46270 

JMP 

ERROR 

46280 

RE$EAD= 

* 

46290 

DEC 

ERTMAX 

46300 

BEQ 

R$READ 

46310 

JSR 

STPOUT 


;SET CARRY INDICATING NO ERR 

iWRITE A TRACK UTILL NO ERROR 

{SET NO REREAD MODE 

{POSITION HEAD TO DESIRED TRACK 
}SET MAX. WRITE TIMES 

{WRITE A TRACK 

{GO TO REREAD MODE TO CHECK 

{{READ A TRACK UNTIL NO ERROR 

{SET NO REREAD MODE 

{POSITION HEAD TO DESIRED TRACK 


{READ A TRACK 

{IF ERR f GO TO ERR HANDLING 
{REREAD MODE/? 

{IF NOT» SET FLAG TO INDICATE 
{NOW IS IN REREAD MODE 

{AND GO BACK TO REREAD! 

{IF IS REREADiUNLOAD HEAD t FINISH 

5ERR HANDLING 


46320 

JSR 

DLYMS1 

46330 

JSR 

STPIN 

46340 

JSR 

DLYMS1 

46350 

BEQ 

RE$TRK 

46360 

46370 5 

RESV27*: 

= * + 5 


46380 ? %%%%%%%%% t % % % % % % 11 * t 11 % t % % 'I % % % % Y t1 % t t-ti-t % 11 % % % t $ 11 % % % % 'I 
46390 j % % 

46400 j % NUMBER 14 3 READ/WRITE B/S FROM/TO DISK * 

46410 1 % % 

46420 ? tttttt % 11 % % * '* % 111 * % % t % % 1111 % % % % t % % * % * % t % % I % % % % % * t % % % * % 
46430 ? 

46440 RWDBS1=* 


46450 ? 



46460 

LDA 

TKNDER 

46470 

BEQ 

RWDB$$ 

46480 

CMP 

TRKDRC 

46490 

BEQ 

R$DBS1 

46500 

BIT 

IOBFFG 

46510 

BPL 

RWDB$$ 

46520 

JSR 

WRTTRK 

46530 

RWDB$$ 

= t 

46540 

LDA 

TRKDRC 

46550 

STA 

TKNDER 

46560 

JSR 

REDTRK 

46570 

LDA 

*$00 

46580 

STA 

IOBFFG 

46590 

R$DBS1 

=* 

46600 

BIT 

FLAG 

46610 

BOC 

RWD$$$ 

46620 

LDA 

*$80 

46630 

STA 

IOBFFG 

46640 

RWD$$$ 

= * 

46650 

NOP 


46660 

NOP 


46670 

NOP 


46680 

NOP 


46690 

NOP 


46700 

LDA 

DMAREG 

46710 

STA 

HLREG1 

46720 

LDA 

DMAREG+1 

46730 

STA 

HLREG1+1 

46740 

LDY 

*$00 

46750 

STY 

TEMP 

46760 

LDA 

*$10 

46770 

BIT 

FLAG 

46780 

BEQ 

RE$BS1 

46790 

LDA 

SECNB1 

46800 

LDX 

*$07 

46810 

JSR 

ASLDS1 

46820 

JSR 

ADCIOF 

46830 

RED$S1 

=* 

46840 

BIT 

FLAG 

46850 

BOS 

REDBS$ 


?READ/WRITE B/S FROM/TO DISK 
?TRACK 0? 

5DESIRED TRACK = CURRENT TRACK? 
5YES? NO DISK I/O 
?'FLUSH' FLAG SET? 

?IF NO ? NO WRITING BACK 
JWRITE BACK TO CURRENT TRACK 

j STORE DESIRED NO, TO CURRENT NO 

?READ THIS TRACK 
? FLUSH 'FLUSH' FLAG 


5WRITE OR READ? 

?IF WRITE? SET 'FLUSH' FLSA6 


?SENT DMA ADDR♦ TO HLRE61 


»SECTOR OPERATION? 


?YES? READ OR WRITE A SECTOR 
?BETWEEN DISK I/O BUFFER AND DMA 


443AO 

46S70 

46830 

46890 

46900 

46910 

46920 

46930 

46940 

46950 

46960 

46970 

46980 

46990 

47000 

47010 

47020 

47030 

47040 

47050 

47060 

47070 

47080 

47090 

47100 

47110 

47120 

47130 

47140 

47150 

47160 

47170 

47180 

47190 

47200 

47210 5 

47220 

47230 { 

47240 

47250 

47260 

47270 

47280 

47290 

47300 

47310 { 

47320 

47330 5 

47340 

47350 

47360 

47370 

47380 

47390 


LDA 

(HLREG)>Y 

STA 

(HLREG1)>Y 

JMP 

RIIBSl 

REDBS$= 


LDA 

(HLRE61)»Y 

STA 

(HLREG) ? Y 

RIIBSl 

=* 

I NY 


CPY 

*180 

BNE 

RED$S1 

RTS 


REIBS1 : 

= * 

LDA 

BLKNB1 

LDX 

*$09 

JSR 

ASLDS1 

JSR 

ADCIOF 

LDX 

*$02 

REDBI1 

=* 

BIT 

FLAG 

BVS 

RE$$S1 

LDA 

(HLREG)»Y 

STA 

(HLREG1)»Y 

JMP 

REB$$1 

REIISl 

= * 

LDA 

(HLREG1)>Y 

STA 

(HLREG)»Y 

REBII1 

=* 

INY 


BNE 

REDBIl 

INC 

HLREG+1 

INC 

HLREG1+1 

DEX 


BNE 

REDBIl 

RTS 


RESV28*=*+5 

SIOBDK 

= * 

BIT 

IOBFFG 

BPL 

SIOBDK 

JSR 

WRTTRK 

LDA 

*100 

STA 

IOBFFG 

SIOBDK 

= * 

RTS 


BCDASC 

=* 

PHA 


AND 

*IOF 

CLC 


ADC 

*130 

TAY 


PLA 



* IF IS BLOCK OPERATION? READ 
J OR WRITE A BLOCK BETWEEN 
»DISK I/O BUFFER AND DMA 


{SENT I/O BUFFER BACK TO DISK 
5'FLUSH' FLAG SET? 

* IF SET j WRITE BACK TO DISK 


{CONVERT BCD TO TWO ASCII CODES 

?GET LOW NIBBLE 
{CONVERT TO ASCII CODE 


47400 
47410 
47420 
47430 
47440 
47450 
47460 
47470 
' 47480 1 
[ 47490 5 
47500 5 
47510 ; 
47520 1 
47530 5 
47540 5 
47550 > 
47560 5 
47570 5 
47530 ! 
47590 » 
47600 
47610 } 
47620 
47630 
47640 
47650 
47660 
47670 
47680 
47690 
47700 
47710 
47720 
47730 
47740 
47750 
47760 
47770 
47780 
47790 
47800 5 
47810 
47820 
47830 
47840 
47850 
47860 
47870 


LSR 

A 


LSR 

A 


LSR 

A 


LSR 

A 


AND 

CLC 

*$0F 

;get high nibble 

ADC 

RTS 

*$30 

>CONVERT TO ASCII CODE 


4 4 4 4 % 4 4 4 4 44444 4 4 4 4 4 4 4 4 44 4 4444 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 


4 4 

4 NUMBER 15 1 ERROR HANDLING 4 

4 4 

4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4444 4 4 4 4 4 4 4 4 4444 4 4 4 4 4 4 4 4 44444444 4 4 4 4 
4 4 

4 ENTRY PARAMETERS 1 4 

4 REGISTER A 1 ERROR NUMBER 4 

4 4 


4 4 4 4 444 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 444444 4 4 4 4 4 444 4 4 4 4 4 44 4 4 4 4 4 4 4 4 
ERRQR=4 


JSR 
LDX 
STA 
I NX 
TYA 
STA 
LDA 
CLC 
ADC 
LDX 
STA 
LDA 
STA 
LDA 
STA 
JSR 
JMP 
EROR 


BCDASC 5CONVERT ERR NO. TO 2 ASCII 
*$OB 5AND INSERT THEM TO THE ERR 
ERORjX 1MESSA6E 


EROR > X 

CRTDSK »CONVERT CURRENT DISK NO.TO 

5ASCII AND INSERT IT TO THE 
«41 5ERR MESSAGE 

*$16 
ERORjX 

♦EROR !OUTPUT ERR MESSAGE 

DEREG 

♦EROR/256 

DEREG+i 

OUTBFF 

CCPST1 

.BYTE ' OPST ERR ON DISK $' 


DFBUFA4=4+512 

DIRBUF4=4F512 

MAPAR04=4+64 

MAPAR14=4+64 

CHKAR04=4+14 

CHKAR14=4+14 

FLCTBK4=4+35 


>DEFAULT BUF 
5DIRECTORY BUF 
»MAP AREA OF DISK A 
5MAP AREA OF DISK B 
ICHECK AREA OF DISK A 
iCHECK AREA OF DISK B 
5FILE CONTROL BLOCK 


Appendix B5 : 


Listing of DSKUTY 


5 ! 

DISKETTE UTILITY 


10 

*=$0200 


30 

JMF' DIKULT 

40 

BD03=$05 


50 

HLREG=$70 


60 

HLREG1=$72 


70 

FLAG=$74 


80 

TEHP=$75 


90 

TKNDER=$76 

>DESIRED TRACK 

100 

TRKCRN=$77 

5 HEAD POSITION 

110 

TRKCR1=$78 

>HEAD RESERVATION 

120 

TKTMAX=$79 

1 MAX TIMES FOR MATCH TRAC* 

130 

ER0RFG=$7A 

5 ERROR FLAG 

140 

I0BUFA=$7B 

5FOR I/O BUF ADDRESS 

150 

PAGNUB=$?B 

?PAGE COUNTER 

160 

F'AGENM = $7E 

»DESIRED PAGE NO. 

170 

ERTMAX=$7F 

>MAX R/W TIMES 

180 

N0CMP1=$80 

j CHECK F'RAMETER 

190 

NGCMF’2=$82 


200 

SATTRK=$83 

5STARTING TRACK NO. 

210 

ENDTRK=$84 

5END TRACK NO. 

220 

S0RCDK=$85 

j SOURCE DISK NO. 

230 

BESTDK=$86 

> BEST , DISK NO. 

240 

LCTREG=$87 

j ADDRESS FOR DESIRED MQVEIN6 

250 

HEADST=$89 

5 LOADER VECTOR 

260 

STF'TST = $8B 

jSTACK POINTER RESERVATION 

270 

STATFG=$3C 

j STATE FLAGE 

280 

FRYCST=$E41B 


290 

DVACIA=$CQ10 

>DISK PORT 

300 

DVPIA1=$CQ00 

5DISK CONTROL 

310 

DVPIA2=$C002 

j DISK CONTROL 

320 

IOBUF=$BOOO 

il/O BUF 

330 

DIKCRT .BYTE 

$00 j CURRENT DISK 

340 

BKCONT .BYTE 

$40 ? $00 

350 

INBUF .BYTE $05 5 INPUT BUFFER 

360 

INBUFl*=*+5 


370 

DPLBF1 .BYTE 

' — DISKETTE UTILITY —' »$OD»$OA 

380 

.BYTE 

$OD»$OA»'SELECT ONE',$OD 

390 

.BYTE 

$OA t $ODj$OA f'1) COPY ALL TRACKS' 

400 

.BYTE $0B»$0A>$0D»$0A»'2) COPY OPTION ' 

410 

.BYTE 

'TRACKS'j$ODj$OAj$ODj$OA»'3) IN' 

420 

.BYTE 

'ITIALIZE OPTION TRACKS (TRACK' 

430 

.BYTE 

' 0 IS NOT ALLOWED)' 

440 

.BYTE 

$0D»$0Af$0D»$0A>'4) READ ' 

450 

.BYTE 

'OPTION TRACK'»$OD»$OA,$0D»$OA 

460 

.BYTE 

'5) WRITE OPTION TRACK'j$ODj$OA 

470 

.BYTE 

$0D»$0A f '6) QUIT TO OUP/M'»$OD 

480 

.BYTE 

$OA»$OD»$OA»'— TRACK NUMBER 1 ' 

490 

.BYTE 

' A 2-DIGIT DECIMAL VALUE',$OD 

500 

.BYTE 

$OA f $OD> $OA»' ADDRESS l ' 

510 

.BYTE 

'VECTOR! A 4-DIGIT HEXIDECIMAL ' 

520 

.BYTE 

'VALUE'»$OD» $OA» $OD»$OA»'— ' 


530 


.BYTE 

540 


.BYTE 

550 


.BYTE 

560 

DPLBF2 

.BYTE 

570 

DPLBF3 

.BYTE 

580 

DPLBF4 

.BYTE 

590 

DPLBF5 

.BYTE 

600 

DPLBF6 

.BYTE 

610 


.BYTE 

620 


.BYTE 

630 


.BYTE 

640 


.BYTE 

650 


.BYTE 

660 

DPLBF7 

.BYTE 

670 


.BYTE 

680 


.BYTE 

690 


.BYTE 

700 


.BYTE 

710 


.BYTE 

720 

DPLBF8 

.BYTE 

730 


.BYTE 

740 


.BYTE 

750 


.BYTE 

760 


.BYTE 

770 


.BYTE 

780 

DPLBF9 

.BYTE 

790 


.BYTE 

800 


.BYTE 

810 


.BYTE 

820 


.BYTE 

830 

DF'LBFA 

.BYTE 

840 


.BYTE 

850 


.BYTE 

860 


.BYTE 

870 


.BYTE 

880 

DPLBFB 

.BYTE 

890 

DPLBFC 

.BYTE 

900 

DPLBFD 

.BYTE 

910 

DPLBFE 

.BYTE 

920 

DF'LBFF 

.BYTE 

930 

DPLBFB 

.BYTE 

940 

DPLBFH 

.BYTE 

950 


.BYTE 

960 

DPLBFI 

.BYTE 

970 


.BYTE 

980 

DPLBFJ 

.BYTE 

990 

DPLBFK 

.BYTE 

1000 

DPLBFL 

.BYTE 

1010 


.BYTE 

1020 

DPLBFM 

.BYTE 

1030 


• BYTE 

1040 

DF'LBFN 

.BYTE 

1050 

DPLBFO 

.BYTE 

1060 

DPLBFP 

.BYTE 


'PAGE number: a SINGLE HEXI' 
'DECIMAL VALUE'»*OD»$OA»$Ob»$OA 
'?$' 

'FROM WHICH DISK (A/B) ?!' 

'TO WHICH DISK (A/B) ?$' 

'FROM WHICH TRACK ?!' 

'TO WHICH TRACK ?!' 

DISKETTE COPIER —'»!OD>$OA 
IOD»$OA»IQD?!OA> 'THIS ROUTINE ' 
'COPIES ALL TRACKS FROM A TO B' 
$OD>IOAj!OD>IOAj'BE SURE PUT' 
'MASTER DISK INTO A l YOUR DISK 
$ODj !OA> IOD ? !OA?'INTO B!' 

'— DISKETTE OPTION COPIER 
IOD>!OA» IOD?10A»IOD?!OA >'THIS ' 
'ROUTINE OPT IONLY COPIES DESIRE 
' TRACKS'j$OD»$OAj$OD>$OAj'FROM 
' SOURCE DISK TO DESTINATION ' 
'DISK*' 

DISKETTE INITIALIZER —' 

IOD jIOA»!OD>!OA ? $OD» $OA>'THIS ' 
'ROUTINE QPTIONLY INITIALIZES ' 
'TRACK HEADER '>IOD,!OA f $OD>iOA 
'OF DESIRED DISK EXPECT TRACK ' 
'0 !' 

'— DISKETTE READER — '»*OD»*OA 
IOD>IOA ?IOA>IGA*'THIS ROUTINE ' 
'READS ANY TRACK FROM DESIRED ' 
IOD*IOA*IOD*IOA*'DISK TO THE ' 
'LOCATION YOU WANT!' 

'— DISKETTE WRITER -~'*IOD*IOA 
IOD,IOA*IOD*IOA*'THIS ROUTINE ' 
'WRITES ANY TRACK FROM THE L0-' 
IOD*10A,IOD,10A*'CATION TO THE 
'DESIRED DISKI' 

'TO WHICH LOCATION ?$' 

'FROM WHICH LOCATION ?$' 

'GIVE THE LOADER VECTOR II' 

'HOW MANY PAGES ?$' 

'ALL DONE I ANOTHER (Y/N) ?$' 
'ARE YOU SURE (Y/N) ?$' 

'ERROR II INDEX HOLE FOUND' 

' WHILE WRITING!' 

'ERROR II INDEX HOLE FOUND ' 
'WHILE READING!' 

'ERROR II DRIVE NOT REDAY!' 
'ERROR II TRACK NOT MATCH!' 
'ERROR II DISK WRITING ' 
'PROTECTION!' 

'ERROR II BUFFER X DISK NOT' 

' MATCH!' 

'ERROR II PARITY ERROR!' 

'ERROR II NO SUCH COMMAND!' 

'TRY AGAIN (Y/N) ?!' 


1070 


DPLTAB .WORD DF'LBF 1 >DF'LBF2 1 DPLBF3 1 DPLBF4 

1080 


.WORD DPLBF5 >DF'LBF 6 > DPLBF7 > DPLBF8 

1090 


.WORD DF'LBF9jDPLBFA t DF'LBFB >DPLBFC 

1100 


.WORD DF'LBFD > DPLBFE > DPLBFF > DF'LBFG 

1110 


.WORD DF'LBFH? DPLBFI ?DF'LBF J> DF'LBFK 

1120 


.WORD DPLBFL»DF'LBFH?DF'LBFN r DF'LBFO 

1130 


.WORD DPLBFF' 

1140 

! 


1150 


BELAYB-* HDELAY ROUTINE 

1160 

7 


1170 


INC DELYHR 

1180 


INC DELYHR 

1190 


INC DELYHR 

1200 


INC DELYHR 

1210 


RTS 

1220 


DELYHR*=*+1 

1230 

7 


1240 


BELYHS=* jDELAY 1 HS 

1250 

7 


1260 


JSR DELAYS 

1270 


DEY 

1280 


BNE DELYHS 

1290 


RTS 

1300 

7 


1310 


DLYMS1=* jDELAY (X) HS 

1320 

? 


1330 


LDX *$0C 

1340 


D$YHS1='I 

1350 


LDY FRYCST 

1360 


JSR DELYHS 

1370 


HEX 

1380 


BNE D$YHS1 

1390 


BL$HS1=4: 

1400 


RTS 

1410 

7 


1420 


DELYUS=* 5 DELAY X X)*100 US 

1430 

7 


1440 


LDA FRYCST 

1450 


D$LYUS=* 

1460 


BIT $00 

1470 


SEC 

1480 


SBC *$05 

1490 


BCS D$LYUS 

1500 


DEX 

1510 


BNE DELYUS 

1520 


RTS 

1530 

7 


1540 

r 


1550 


HOHEHD=* 5 HOHE HEAD TO ZERO 

1560 

7 


1570 


JSR STPIN 

1580 


JSR DLYHS1 

1590 


STY TRKCRN 

1600 


STY TKNDER 


1610 


H$MEHD= 

= * 

1620 


LDA 

*$02 

1630 


BIT 

DMPIA1 

1640 


BEQ 

DLYH31 

1650 


JSR 

STPOUT 

1660 


BEQ 

H$MEHD 

1670 

9 



1680 


ADCQF1 : 

=* 

1690 

? 



1700 


CLC 


1710 


ADC 

HLREG 

1720 


STA 

HLREG 

1730 


LDA 

TEMP 

1740 


ADC 

HLREG*1 

1750 


STA 

HLREG+1 

1760 


RTS 


1770 

9 



1780 


DIKSEL : 

=* 

1790 

9 



1800 


LDX 

DIKCRT 

1810 


LDA 

DKCONT ?X 

1820 


STA 

DVPIA1 

1830 


LDA 

*$FF 

1840 


STA 

DVPIA2 

1850 


DfKSEL 

=* 

1860 


LDA 

#$10 

1870 


CPX 

*$01 

1S80 


BEQ 

DI$SEL 

1890 


LDA 

*$01 

1900 


DI$SEL 

= t 

1910 


BIT 

DVPIA1 

1920 


RTS 


1930 

9 



1940 

9 



1950 


SEKIHL 

=* 5 

1960 

? 



1970 


LDA 

DVPIA1 

1980 


BHI 

SEKIHL 

1990 


S$KIHL 

=* 

2000 


LDA 

D0PIA1 

2010 


BPL 

S$KIHL 

2020 


RTS 


2030 

A 

9 



2040 


STPOUT 

=* } 

2050 

9 



2060 


LDA 

DVPIA2 

2070 


ORA 

*$04 

2080 


BNE 

STEP 

2090 


STPIN= 

* ;s 

2100 


LDA 

*$FB 

2110 


AND 

D0PIA2 

2120 


STEP=* 


2130 


STA 

DVPIA2 

2140 


JSR 

DL$MS1 


jSEEK INDEX HOLE 


ISTEP OUT ONE TRACK 


i STEP IN ONE TRACK 


2150 AND *$F7 

2160 STA DVPIA2 

2170 JSR DL$HS1 

2180 JSR DLSHSi 

2190 ORA *$03 

2200 STA DVPIA2 

2210 JSR DL$HS1 

2220 LDX *$08 

2230 JHP D$YHS1 

2240 i 

2250 SIHSDK=*. »SEEK HOLE ?SET ACIA 

2260 i 

2270 JSR 

2280 LDA 

2290 STA 

2300 LDA 

2310 STA 

2320 RTS 

2330 5 

2340 LDHEAD=* 5 LOAD HEAD 

2350 i 

2360 LDA *$7F 

2370 AND DVPIA2 

2380 L$HEAD=* 

2390 STA DVPIA2 

2400 LDX *$28 

2410 JHP D$YHS1 

2420 i 

2430 UNLDHD=* 5UNLOAD HEAD 

2440 LDA *$80 

2450 ORA DVPIA2 

2460 BNE L$HEAD 

2470 ; 

2480 MRTDIK=* ? WRITE A BYTE TO DISK 

2490 } 

2500 LDA DVPIA1 

2510 BF'L W$TDIK 

2520 LDA DVACIA 

2530 LSR A 

2540 LSR A 

2550 BCC WRTDIK 

2560 STX DOACIA+1 

2570 RTS 

2580 W$TDIK=* 

2590 LDA *$11 

2600 JHP ERROR 

2610 RESU25*=*+5 

2620 ; 

2630 REDDIK=* 5READ ABYTE FROH DISK 

2640 } 

2650 LDA DVPIA1 

2660 BPL R$BDIK 

2670 LDA DOACIA 

2680 LSR A 


SEKIHL 

*$03 

DVACIA 

*$58 

DVACIA 


2690 BCC REDD IK 

2700 LDA DVACIAE1 

2710 RTS 

2720 R$DDIK=* 


2730 
2740 
2750 i 
2760 
2770 5 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 » 
3130 
3140 » 
3150 
3160 
3170 
3180 
3190 
3200 
3210 5 
3220 


LDA *$12 

JMP ERROR 


TRKPSA=* jPUT HEAD TO DESIRED TRACK 


LDX 

DIKCRT 

JSR 

DIKSEL 

BEQ 

T$KPSA 

LDA 

*$13 

JMP 

ERROR 

T$KPSA= 

V- 

LDA 

TKNDER 

CMP 

TRKCRN 

BEQ 

TR$PSA 

BCS 

TRK$SA 

JSR 

STPOUT 

LDA 

*$99 

BCC 

TRKP$A 

TRK$SA= 

% 

JSR 

TXA 

STPIN 

TRKP$A= 

SED 

t 

ADC 

TRKCRN 

STA 

CLD 

TRKCRN 

JMP 

T $KPSA 

TR$PSA= 

* 

CMP 

*$43 

LDA 

DVPIA2 

AND 

*$BF 

LDY 

NOP 

*$00 

BCS 

TRKPS$ 

LDA 

*$40 

ORA 

DVPIA2 

TRKPS$= 


STA 

RTS 

DVPIA2 


TRKPSH=* 


JSR TRKF'SA 

LDA *IOBUF 

STA IOBUFA 

LDA *I0BUF/256 
STA IOBUFA+1 

JMP LDHEAD 

TKNMTH=* 5MATCH TRACK* 


3230 ; 
3240 

LDA 

*$05 

! 3250 

STA 

TKTMAX 

3260 

TKNM$H- 

t 

3270 

JSR 

SIHSDK 

3280 

T$NMTH= 

% 

3290 

JSR 

REDD IK 

3300 

TK$MTH= 

% 

3310 

LDX 

TKNDER 

3320 

BEQ 

TKNMT1 

3330 

CMP 

*$43 

3340 

BNE 

T$NMTH 

3350 

TKNMT1= 

* 

3360 

STA 

HEADST+1 

3370 

JSR 

REDDIK 

3380 

LDX 

TKNDER 

3390 

BEQ 

TKNMT2 

3400 

CMP 

*$57 

3410 

BNE 

TK$MTH 

3420 

TKNMT2= 

* 

3430 

STA 

HEADST 

3440 

JSR 

REDDIK 

3450 

LDX 

TKNDER 

3460 

BEQ 

TKNMT3 

3470 

CMP 

TKNDER 

3480 

BNE 

TKNITH 

3490 

TKNMT3= 

% 

3500 

STA 

PAGENM 

3510 

RTS 


3520 

TKN$TH= 

% 

3530 

DEC 

TKTMAX 

3540 

BEQ 

TKNMT $ 

3550 

LDA 

TKNDER 

3560 

PHA 


3570 

JSR 

HOMEHD 

3580 

PLA 


3590 

STA 

TKNDER 

3600 

JSR 

T$KPSA 

3610 

JMP 

TKNM$H 

3620 

TKNMT$= 

* 

3630 

LDA 

*$14 

3640 

JMP 

ERROR 

3650 

RESV26* 

:=*T5 

3660 i 
3670 

WRTTKS= 

J 

3680 } 
3690 

LDA 

*$20 

3700 

BIT 

DVPIA1 

3710 

BNE 

W$TTKS 

3720 

LDA 

*$15 

3730 

JMP 

ERROR 

3740 

W$TTKS= 

= * 

3750 

LDX 

TKNDER 

3760 

BNE 

WRTT $S 


* IF TRACK 0? 
5NO CHECKING 


1STGRE TRACK 0 LDVECTOR 


5 STORE TRACK 0 PGNO, 


WRITE A TRACK TO DISK 


5 CHECK TRACK 0 






ilF IS»TO WRITE TRACK 0 


3770 

3780 

3790 

3800 

3810 

3820 

3830 

3840 

3850 

3860 

3870 

3880 

3S90 

3900 

3910 

3920 

3930 

3940 

3950 

3960 

3970 

3980 

3990 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4080 

4090 

4100 

4110 

4120 

4130 

4140 

4150 

4160 

4170 

4180 

4190 

4200 

4210 

4220 

4230 

4240 

4250 

4260 

4270 

4280 

4290 

4300 


JMF‘ WRTTKO 

WRTT$S=* 

BIT FLAG »CHECK INIT 

BF'L URT$KS 5GO WRITING NON 0 TK 

JSR SIHSBK »SEARCH HOLEjSET ACIA 

LDA *$FC t ENABLE WRITE l ERASE 

AND DVPIA2 

STA DVPIA2 

LUX *$0A f DELAY IMS 

JSR DELYUS 

LDX *$43 JUT REGUIAR HEADER 

JSR WRTDIK 

LDX *$57 

JSR WRTDIK 

LDX TKNDER 

JSR WRTDIK 

JMP WRTT$$ 

WRT$KS=* 5WRITING NON 0 TRACK 

JSR TKNMTH iHATCH TRACK NO, 

LDX *$04 >DELAY 0,4 HS 

JSR DELYUS 

LDA *$FE »ENABLE WRTITING 

AND DVPIA2 

STA DVPIA2 

LDX *$02 »DELAY 0.2 MS 

JSR DELYUS 

LDA *$FD 5ENABLE ERASING 

AND DVPIA2 

STA DVPIA2 

LDX *$08 >DELAY 0,8 HS 

JSR DELYUS 

LDX *$76 1WT START FLSG 

JSR WRTDIK 

LDX *$0E ?SET REGULAR P6N0. 

STX PAGNUB 

WRT$$$=* 

LDY *$00 

WR$TKS=* 

LDA (IOBUFA)>Y 

TAX 

JSR WRTDIK 

INY 

BNE WR$TKS 

INC IOBUFA+1 

DEC PAGNUB 

BNE WR$TKS 

LDX *$47 

JSR WRTDIK 

LDX #$53 

JSR WRTDIK 

JMP WRTTK$ 

WRTT$$=* 

LDA DOPIAl IWAITjTILL NEXT HOLE 

BMI WRTT$$ 


4310 


WRTTK$= 

■t 


4320 


LDA 

DUPIA2 


4330 


ORA 

*$01 


4340 


STA 

DVPIA2 


4350 


LDX 

*$05 


4360 


JSR 

DELYUS 


4370 


LDA 

DVPIA2 


4380 


ORA 

*$02 


4390 


STA 

DVPIA2 


4400 


LDA 

tIQBUF/256 


4410 


STA 

IOBUFA+1 


4420 


RTS 



4430 


WRTTKO : 

■-t >WRITE TRACK 0 

4440 


LDA 

BVF'IAl 


4450 


BPL 

URTTKO 


4460 


W$TTKO 

=* 


4470 


LDA 

BVF'IAl 


4480 


BMI 

U$TTKO 


4490 


LDA 

*$FC 

^ENABLING WRITE l ERASE 

4500 


AND 

DVPIA2 


4510 


STA 

DVPIA2 


4520 


WR$TKO 

= * 


4530 


LDA 

BVF'IAl 


4540 


BPL 

UR$TKO 


4550 


LDX 

*$0A 

5 DELAY 1 MS 

4560 


JSR 

DELYUS 


4570 


LDX 

HEADSTT1 

»WT TRACK 0 VECTOR 

4580 


JSR 

WRTDIK 


4590 


LDX 

HEADST 


4600 


JSR 

WRTDIK 


4610 


LDX 

PA6ENM 

5SET DESIRED F'GNO. 

4620 


STX 

PAGNUB 


4630 


JSR 

WRTDIK 

5WRITE IT 

4640 


JilP 

WRT$$$ 

»G0 WRITING REST 

4650 

1 




4660 


REDTKS : 

=* 5 

READ A TRACK 

4670 

f 




4680 

f 




4690 


JSR 

TKNMTH 


4700 


LDX 

*$0E 


4710 


LDA 

TKNDER 


4720 


BNE 

R$DTKS 

JIF NOT 0 SET F'GNO * 

4730 


LDX 

PAGENM 


4740 


JMP 

REDT $S 

SNOT CHECK START FLAG 

4750 


R$DTKS 

=* 


4760 


JSR 

REDDIK 


4770 


CMP 

*$76 


4780 


BNE 

R$DTKS 


4790 


REDTIS 

=* 


4800 


LDY 

*$00 


4810 


STY 

ERORFG 


4820 


LDA 

*$01 


4830 


RE$TKS 

=* 


4840 


BIT 

DVACIA 



4350 


BEQ 

RE$TKS 

4860 


LDA 

DUACIA+1 

4370 


BVC 

REDIKS 

4880 


LDA 

*$80 

4390 


STA 

ERORFG 

4900 


R$$TKS : 

=* 

4910 


CLC 


4920 


RTS 


4930 


RED$KS- 

=* 

4940 


BIT 

STATFG 

4950 


BPL 

REDTK* 

4960 


CMP 

(IOBUFA)?Y 

4970 


BEQ 

REDTKt 

4980 


LDA 

*$40 

4990 


STA 

ERORFG 

5000 


BNE 

R$$TKS 

5010 


REDTK$ 

=* 

5020 


STA 

(IOBUFA)»Y 

5030 


LDA 

*$01 

5040 


INY 


5050 


BNE 

RE$TKS 

5060 


INC 

IOBUFA+1 

5070 


DEX 


5080 


BNE 

RE$TKS 

5090 


LDA 

♦IOBUF/256 

5100 


STA 

IOBUFA+1 

5110 


SEC 


5120 


RTS 


5130 

f 



5140 


WRTTRtv 

=* jWRITE A TRACK UTILL NO ERROR 

5150 

1 



5160 


LDA 

*$A0 

5170 


STA 

STATFG 

5180 


JSR 

TRKPSH 

5190 


LDA 

*$04 

5200 


STA 

ERTHAX+1 

5210 


W$TTRK 

=* 

5220 


JSR 

WRTTKS 

5222 


BIT 

FLAG 

5224 


BPL 

W$$TRK 

5226 


RTS 


5228 


W$$TRK 

=t 

5230 


JHP 

RE$TRK 

5240 

i 



5250 


REDTRK 

=* 5READ A TRACK UNTIL NO ERROR 

5260 

f 



5270 


LDA 

*$40 

5280 


STA 

STATFG 

5290 


JSR 

TRKPSH 

5300 


LDA 

*$04 

5310 


STA 

ERTMAX 

5320 


RE$TRK 

=* 

5330 


LDA 

*$06 

5340 


STA 

ERTMAX+2 




5350 


REDT$K= 

t 

5360 


JSR 

REDTKS 

5370 


BCC 

REREAD 

5380 


BIT 

STATFG 

5390 


BMI 

RfDTRK 

5400 


LDA 

*$80 

5410 


ORA 

STATFG 

5420 


STA 

STATFG 

5430 


BNE 

RE$TRK 

5440 


R$DTRK= 

# 

5450 


JMP 

UNLDHD 

5470 


REREAD* 

* 

5480 


LDA 

♦IOBUF/256 

5490 


STA 

I0BUFAI1 

5500 


DEC 

ERTMAX+2 

5510 


BNE 

REDT $K 

5520 


BIT 

ERGRFG 

5530 


BMI 

RE$EAD 

5540 


BIT 

STATFG 

5550 


BVS 

R$READ 

5560 


DEC 

ERTMAX+1 

5570 


BNE 

W$TTRK 

5580 


R$READ= 

* 

5590 


LDA 

ERORFG 

5600 


JMP 

ERROR 

5610 


RE$EAB= 

% 

5620 


DEC 

ERTMAX 

5630 


BEQ 

R$READ 

5640 


JSR 

STPOUT 

5650 


JSR 

DLYMS1 

5660 


JSR 

STPIN 

5670 


JSR 

DLYMS1 

5680 


BEQ 

REtTRK 

5690 


RESV27I 

: = *I5 

5700 

9 



5710 


LFTSHT= 

* 

5720 

9 



5730 


ASL 

A 

5740 


ASL 

A 

5750 


ASL 

A 

5760 


ASL 

A 

5770 


RTS 


5780 

9 



5790 


RITSHT= 

* 

5800 

9 



5810 


LSR 

A 

5820 


LSR 

A 

5830 


LSR 

A 

5840 


LSR 

A 

5850 


RTS 


5860 

9 



5870 


LUCVS6= 

* ;co 

5880 




5890 


CMP 

*$61 


; COVERT A CHAR LOWER TO UPPER 


5900 


BCC 

L$CVSG 

5910 


CMP 

*$7C 

5920 


BCS 

L$CVSG 

5930 


AND 

*$5F 

5940 


L$CVSG= 

* 

5950 


RTS 


5960 

5 



5970 


LUCVBF= 

* »COVERT WHOLE CHARS TO UPPER 

5980 

t 



5990 


LDY 

*$01 

6000 


LDA 

INBUF»Y 

6010 


TAX 


6020 


L$CVBF= 

* 

6030 


INY 


6040 


LDA 

INBUFfY 

6050 


JSR 

LUCVSG 5COVERT CHAR TO UPF'.ER 

6060 


STA 

INBUFfY 

6070 


DEX 


6080 


BNE 

L$CVBF 

6090 


RTS 


6100 

? 



6110 


CSLINP= 

* »CONSOLE INPUT 

6120 

? 



6130 


LDA 

tINBUF 

6140 


LDY 

♦INBUF/256 

6150 


LDX 

*$06 

6160 


JSR 

BDOS 

6170 


JMP 

LUCVBF !COVERT LO TO UP 

6180 

? 



6190 


CSLIN1= 

* »INPUT CONSOLE»GET A NO» 

6200 

f 



6210 


JSR 

CSLINP 

6220 


LDY 

*$02 

6230 


LDA 

INBUF»Y 

6240 


RTS 


6250 

y 



6260 


DIGCHK= 

* ICKECK DIGIT WITHIN THE RANGI 

6270 

y 



6280 


STX 

N0CMP1 

6290 


STY 

N0CMP2 

6300 


SEC 


6310 


SBC 

N0CMP2 

6320 


BCC 

D$GCHK 

6330 


CMP 

NOCMF‘1 

6340 


BCS 

DiGCHK 

6350 


RTS 


6360 


D$GCHK= 

* 

6370 


JMP 

ERR0R1 

6380 

y 



6390 


CRLF=* 


6400 

y 



6410 


LDA 

*$0D 

6420 


LDX 

*$02 

6430 


JSR 

BDOS 


6440 

LOft 

*$0A 

6450 

LBX 

*$02 

6460 

JHP 

BBOS 

6470 } 



64S0 

PROMF‘T = 

* iGIVE BISPLAYING 

6490 i 



6500 

SEC 


6510 

SBC 

*$01 

6520 

F'HA 


6525 

JSR 

CRLF 

6530 

JSR 

CRLF 

6540 

F'LA 


6550 

ASL 

A »(A)*2 

6560 

LBX 

♦BPLTAB >GET DISPLAY TABLE 

6570 

STX 

HLREG iADDRESS 

6580 

LBX 

♦BPLTAB/256 

6590 

STX 

HLREG+1 

6600 

LBY 

*$00 »ADD OFFSET 

6610 

STY 

TEHP 

6620 

JSR 

ADCOF1 

6630 

LBA 

(HLREG) t Y 5GET DESIRED DISPLAY 

6640 

PHA 

}ADDRESS 

6650 

INY 


6660 

LBA 

(HLREG)»Y 

6670 

TAY 


6680 

PL A 


6690 

LBX 

*$05 5DISPLAY THEH 

6700 

JHP 

BBOS 

6710 5 



6720 

CHNOHD: 

=* 5HANDLE COMMAND NO, 

6730 f 



6740 

JSR 

PROMPT >PROMPT FOR COMMAND NO 

6750 

JSR 

CSLIN1 ?GET IT 

6760 

LBX 

*$07 1 CHECK ITS RANGE 

6770 

LBY 

*$31 

6780 

JHP 

DIGCHK 

6790 5 



6800 

BKNOHD 

=* 5DISK NO, HANDLE 

6810 } 



6820 

JSR 

PROMPT i PROMPT FOR BISK NO, 

6830 

JSR 

CSLIN1 5GET IT 

6840 

LBX 

*$02 

6850 

LBY 

*$41 »CHECK IT 

6860 

JHP 

DIGCHK 

6870 } 



6880 

DIGCH1 

=* 

6890 5 



6900 

LBX 

*$0A 

6910 

LBY 

*$30 

6920 

JHP 

DIGCHK 

6930 » 



6940 

TRNOHB 

=* 5TRACK NO, HANDLE 

6950 t 



6960 

JSR 

PROMPT »PROMPT FOR TRACK NO, 


6970 


JSR 

CSLINP 

69SO 


LDY 

*$02 

6990 


LDA 

INBUF > Y 

7000 


JSR 

DIGCH1 

7010 


JSR 

LFTSHT 

7020 


STA 

TEMP 

7030 


LDY 

*$03 

7040 


LDA 

INBUF f Y 

7050 


JSR 

DI6CH1 

7060 


ORA 

TEMP 

7070 


CMP 

*$77 

7080 


BCS 

T$NOHD 

7090 


RTS 


7100 


T$NOHD : 

=* 

7110 


JMP 

ERROR1 

7120 

9 



7130 


TKNOHD- 

= * 

7140 

? 



7150 


LDA 

*$04 

7160 


JSR 

TRNOHD 

7170 


STA 

SATTRK 

7180 


LDA 

*$05 

7190 


JSR 

TRNOHD 

7200 


STA 

ENDTRK 

7210 


CMP 

SATTRK 

7220 


BCC 

T $NOHD 

7230 


RTS 


7240 


T $NOHD 

=% 

7250 


JMP 

ERR0R1 

7260 

9 



7270 


BIGCH2 : 

= t 

7280 

? 



7290 


SEC 


7300 


SBC 

*$30 

7310 


BCC 

D$GCH2 

7320 


CMP 

*$0A 

7330 


BCC 

DI$CH2 

7340 


SBC 

*$11 

7350 


BCC 

D$GCH2 

7360 


CMP 

*$06 

7370 


BCS 

D$GCH2 

7380 


ADC 

*$0A 

7390 


DI$CH2 

=* 

7400 


RTS 


7410 


B$GCH2 

=* 

7420 


JMP 

ERR0R1 

7430 

9 



7440 


ADNOCK 

=* 

7450 

9 



7460 


LDA 

INBUF > Y 

7470 


JSR 

DIGCH2 

7480 


JSR 

LFTSHT 

7490 


STA 

TEMP 

7500 


I NY 



i GET IT 

;get first digit 

5CHECK IT 

>LEFT SHIFT FOUR BITS 
»GET NEXT DIGIT 

?FORM TRACK NO * 
jCKECK IT 

»START AND END TRACK NOHANDL 
i START NO, HANDLE 

?END NO, HANDLE 


5CHECK DIGIT '0-9' S 'A-F' 

jCHECK '0-9' 

5CHECK 'A-F' 


jCHECK ADDRESS BYTE 

56ET FIRST DIGIT 
5LEFT SHIFT FOUR BITS 


7510 


LDA 

INBUF-Y 

7520 


JSR 

DIGCH2 

7530 


ORA 

TEMP 

7540 


RTS 


7550 

9 



7560 


ADN0H1 

-% 5 

7570 

9 



7580 


JSR 

PROMPT 

7590 


JSR 

CSLINP 

7592 


LDY 

#$01 

7594 


LDA 

INBUFfY 

7596 


CMP 

#$04 

7598 


BEG 

A$N0H1 

7600 


JMP 

ERROR1 

7602 


A$N0H1 

=* 

7604 


INY 


7610 


JSR 

ADNOCK 

7620 


PHA 


7630 


INY 


7640 


JSR 

ADNOCK 

7650 


TAX 


7660 


PLA 


7670 


RTS 


7680 

9 



7690 


ADNOHD 

=* 

7700 

? 



7710 


JSR 

ADN0H1 

7720 


STA 

LCTREG+1 

7730 


STX 

LCTREG 

7740 


RTS 


7750 

9 



7760 


PGNOHD 

=% 5 

7770 

9 



7780 


JSR 

PROMPT 

7790 


JSR 

CSLINP 

7800 


LDY 

4$01 

7310 


LDA 

INBUFjY 

7820 


CMP 

t$02 

7830 


BCS 

P$NOHD 

7840 


INY 


7850 


LDA 

INBUFjY 

7860 


JSR 

DI6CH2 

7870 


CMP 

#$0F 

7880 


BEG 

P$NOHD 

7882 


CMP 

*$00 

7884 


BEG 

P$NOHD 

7890 


STA 

PAGENM 

7900 


RTS 


7910 


P$NOHD 

=* 

7920 


JMP 

ERR0R1 

7930 

9 



7940 


INCTRN 

= * 5 

7950 

9 



7960 


SED 



»GET NEXT DIGIT 
?CHECK IT 
5 FORM A BYTE 


ADDRESS NO, HANDLE 

5 PROMPT FOR ADDRESSS 
> GET THEM 
>CHECK NUMBERS 


jHANDLE HIGH BYTE 
5CHECK l CONCERT IT 


jHANDLE LOWER BYTE 


PAGE NO. HANDLE 

»PROMPT FOR PAGE NO, 
JGET IT 
5CKECK IT 


;f page is not allowed 

»0 PAGE IS NOT ALLOWED 


INCREMENT TRACK NO, 
BY DECIMAL MOOD 


7970 


CLC 

7980 


LDA *$01 

7990 


ADC TKNDER 

8000 


STA TKNDER 

8010 


CLD 

8020 


RTS 

8030 

f 


8040 


SLSODK=* 

8050 

y 


8060 


LDA SORCDK 

8070 


STA DIKCRT 

8080 


JMP DIKSEL 

8090 

y 


8100 


SLDNDK=* 

8110 

y 


8120 


LDA DESTDK 

8130 


STA DIKCRT 

8140 


JMP DIKSEL 

8150 

y 


8160 


DIGOUT=* 

8170 

y 


8180 


CLC 

8190 


ADC *$30 

8200 


LDX *$02 

8210 


JMP BDOS 

8220 

? 


8230 


DPTKNO=* 

8240 

y 


8250 


JSR CRLF 

8260 


LDA TKNDER 

8270 


JSR RITSHT 

8280 


JSR DIGOUT 

8290 


LDA *$0F 

8300 


AND TKNDER 

8310 


JMP DIGOUT 

8320 

y 


8330 


SURERT=* 

8340 

y 


8350 


LDA *$10 

8360 


JSR PROMPT 

8370 


NOP 

8380 


NOP 

8390 


JSR CSLIN1 

8400 


CMP *'Y 

8410 


BEQ S$RERT 

8420 


JMP D$KULT 

8430 


S$RERT =t 

8440 


RTS 

8450 

y 


8460 


NTRDER=* 

8470 

y 


8480 


LDA *$13 

8490 


BNE E$ROR 

8500 


ERROR1=* 


>SELECT SOURCE DISK 

5SELECT BEST. DISK 

i DIGIT OUTPUT 

> DISPLAY TRACK NO. 

.HIGHER BYTE OUTPUT 

JLOWER BYTE OUTPUT 

jPROMPT 'ARE YOU SURE 

>GET THE ANSWER 

5SHOW 'DISK NO READY' 


8510 ; 



8520 

LDA 

*$18 

8530 

BNE 

EiROR 

8540 5 



8550 

ERROR=* 


8560 } 



8570 

STA 

TEMP 

8530 

BIT 

TEMP 

8590 

BMI 

ER$OR 

8600 

BVC 

E$RGR 

8610 

LDA 

*$16 

8620 

BNE 

E$ROR 

8630 

ER$OR=* 


8640 

LDA 

*$17 

8650 

E$ROR=* 


8660 

JSR 

PROMPT 

8665 

JSR 

UNLDHD 

8670 

JSR 

CRLF 

8680 

LDA 

*$19 

8690 

JSR 

PROMPT 

8700 

JMP 

EN$ 

8710 i 



8720 

0PCPY1= 

* 

8730 » 



8740 

JSR 

SURERT 

8750 

JSR 

SLSODK 

8760 

BNE 

0$CPY1 

8770 

JSR 

HOMEHD 

8780 

JSR 

SLDNDK 

8790 

BEQ 

OPCPY* 

8800 

Q$CPY1= 

% 

8810 

JMP 

NTRDER 

8820 

OPCPY$= 

* 

8830 

JSR 

HOMEHD 

8840 

LDA 

TRKCRN 

8850 

STA 

TRKCR1 

8860 

LDA 

SATTRK 

8865 

STA 

TKNDER 

8870 

0P$F‘Y1 = 

* 

8880 

JSR 

SLSODK 

8890 

JSR 

DPTKNO 

8900 

JSR 

REDTRK 

8910 

LDA 

TRKCR1 

8920 

STA 

TRKCRN 

8930 

JSR 

SLDNDK 

8931 

LDX 

TKNDER 

8932 

BEQ 

0PCP$1 

8933 

LDX 

*$80 

8934 

STX 

FLAG 

8935 

JSR 

WRTTRK 

8936 

LDX 

*$00 

8937 

STX 

FLAG 

8938 

0PCF‘$1 = 

* 

8940 

JSR 

URTTRK 


5 SHOW 'COMMAND ERROR' 


jPROMPT FOR 'TRY AGAIN' 


{MAIN COPY ROUTINE 


5SELECT SOURCE DISK 
SNOT READ6.ERROR 

5SELECT BEST, DISK 


i RESERVE BEST, HEAD 
JSET START TRACK 


5SELECT SOURCE DISK 
5 DISPLAY TRACK NO. 
j READ TRACK TO I/O BUF 
5RECOUE BEST. HEAD 

t SELECT BEST. DISK 

;IF TRACK OjNO INIT 
JINIT HEADER 


5WRITE A TRACK FROM I/O 


8950 

LDA 

TRKCRN 

JRESERVE DEST, HEAD 

8960 

STA 

TRKCR1 


8970 

LDA 

TKNDER 

JALL DONE ? 

8980 

CMP 

ENDTRK 


8990 

BEQ 

OF‘C$Y1 


9000 

JSR 

INCTRN 

r UNCREAMENT TRACK NO, 

9010 

BNE 

0P$PY1 


9020 

0PC$Y1= 

* 


9030 

RTS 



9040 J 




9050 J 

DISKETTE COPIER 


9060 } 

%%%%%%% 



9070 5 




9080 

ALCOPY= 

* 

JCOPY DISK A TO B 

9090 ; 




9100 

LDA 

*$06 


9110 

JSR 

PROMPT 

JPROMPT COPIER 

9120 

LDA 

*$00 


9130 

STA 

SORCDK 

JSET SOURCE DISK TO A 

9140 

STA 

SATTRK 

> SET START TRACK TO 0 

9150 

LDA 

*$01 

>SET DEST, DISK TO B 

9160 

STA 

DESTDK 


9170 

LDA 

*$76 

JSET END TRACK TO 76 

9180 

STA 

ENDTRK 


9190 

JSR 

0PCPY1 

560 COPYING 

9200 

JMP 

END 


9210 j 




9220 ; 

DISKETTE OPTION 

COPIER 

9230 ; 

********************** 

9240 J 




9250 

OPCOPY= 

* ; 

COPY OPTION TRACK ROUTNE 

9260 J 




9270 

LDA 

*$07 

»PROMPT OPTION COPIER 

9280 

JSR 

PROMPT 


9290 

LDA 

*$02 


9300 

JSR 

DKNOHD 

»PROMPT FOR SOURCE NO, 

9310 

STA 

SORCDK 

»AND HANDLE IT 

9320 

LDA 

*$03 

5PROMPT FOR DEST, NO, 

9330 

JSR 

DKNOHD 

5AND HANDLE IT 

9340 

STA 

DESTDK 


9350 

JSR 

TKNOHD 

t PROMPT FOR START AND 

9360 



f END TRACK»HANDLE THEM 

9370 

JSR 

0PCPY1 

;go copying 

9380 

JMP 

END 


9390 5 




9400 

INHDRT= 

* 

»MAIN INIT ROUTINE 

9410 ; 




9420 

LDA 

SATTRK 

* SET START TRACK 

9430 

STA 

TKNDER 


9440 

LDA 

*$80 

JSET INIT FLAG 

9450 

STA 

FLAG 


9460 

I$HDRT= 

* 


9470 

JSR 

DPTKNO 

JDISPLAY TRACK NO, 

9480 

JSR 

WRTTRK 

;INIT ONE TRACK 


9490 


LDA 

TKNDER 

9500 


CMP 

ENDTRK > ALL DONE ? 

9510 


BEQ 

IN$DRT 

9520 


JSR 

INCTRN 5 IF NOT ? DO NEXT 

9530 


BNE 

I$HDRT 

9540 


INIDRT 

=t 

9545 


JSR 

UNLDHD 

9550 


JMP 

END 

9560 

J 



9570 

f 

DISKETTE INITIALIFER 

9580 

? 

11 % % % % % % % % % % 1111 * % % t 

9590 

? 



9600 


INITRT 

=t 

9610 

} 



9620 


LDA 

*$08 5PROMPT INITIALIZER- 

9630 


JSR 

PROMPT 

9640 


LDA 

*$03 »PROMPT FOR DISK NO, 

9650 


JSR 

DKNOHD JHANDLE DISK NO, 

9660 


STA 

SORCDK 

9670 


JSR 

TKNOHD i HANDLE TRACK NO,S 

9680 


LDA 

SATTRK JTRACK 0 IS NOT ALLOyED 

9690 


BNE 

I$ITHD 

9700 


JMP 

ERR0R1 

9710 


I$ITHD 


9720 


JSR 

SURERT 

9730 


JSR 

SLSODK »SELECT DESURED DISK 

9740 


BEQ 

IN$THD 

9750 


JMP 

NTRDER IF NOT READY>ERROR 

9760 


IN$THD 

= % 

9770 


JSR 

HOMEHD 

9780 


JMP 

INHDRT >00 INIIALIZING 

9790 

J 



9800 


RWI0DK 

=t jR/W I/O BUF TO/FROM 

9810 



5DESIRED LOCATION 

9820 

J 



9830 


LDY 

*$00 

9835 


LDX 

PAGENM 

9840 


R$IODK 

= * 

9850 


LDA 

(HLREG)>Y 

9860 


STA 

(HLREG1) r Y 

9870 


INY 


9880 


BNE 

R$IODK 

9890 


INC 

HLREG+1 

9900 


INC 

HLREG1+1 

9910 


DEX 


9920 


BNE 

R$IODK 

9930 


RTS 


9940 

i 



9950 


RDGPT1 

=* 5MAIN READER ROUTINE 

9960 

i 



9970 


JSR 

SLSODK 5SELECT DESIRED DISK 

9980 


BEQ 

R$OF‘T 1 

9990 


JMP 

NTRDER i IF NOT READY>ERROR 

10000 


R$0PT1 

= * 


10010 

JSR 

HOHEHD 


10020 

LDX 

SATTRK 

5SET DESIRED TRACK 

10030 

STX 

TKNDER 


10040 

JSR 

REDTRK 

»READ DISK TO I/O BUF 

10050 

LDA 

LCTREG 

?SET DESIRED ADDRESS 

10060 

STA 

HLRE61 


10070 

LDA 

LCTREG+1 


10030 

ST A 

HLREG1+1 


10090 

LDA 

*IOBUF 

i SET I/O BUF ADDRESSS 

10100 

STA 

HLREG 


10110 

LDA 

♦IOBUF/256 


10120 

STA 

HLREG+1 


10130 

LDX 

SATTRK 

»CHECK TRACK 0 

10140 

BEQ 

RDtPTl 


10150 

LDX 

*$GE 

5 IF NOT 0»CHANGE PAGE 

10160 . 

STX 

PAGENH 

i NO * TO REGUIAR VALUE 

10170 

RD$PT1 

=* 


10180 

JSR 

RUIODK 

tREAD TO I/O BUF 

10190 ' 

JHP 

END 


10200 ; 
10210 ; 

DISKETTE TRACK READER 

10220 } 


10230 5 
10240 

RDOF'TK 

=* 5 READ 

OPTION TRACK INTO 

10250 


?DESIRED LOCATION 

10260 ; 
10270 

LDA 

4$09 

»PROHPT READER 

10280 

JSR 

PROHPT 


10290 

LDA 

*$02 

»PROHPT FOR DISK NO, 

10300 

JSR 

DKNOHD 


10310 

STA 

SORCDK 


10320 

LDA 

*$04 

»PROHPT FOR TRACK NO, 

10330 

JSR 

TRNOHD 

i HANDLE IT 

10340 

STA 

SATTRK 


10350 

LDA 

*$0B 

5PR0HPT FOR LOCATION 

10360 

JSR 

ADNOHD 


10370 

JSR 

SURERT 


10380 

JHP 

RD0PT1 

;go reading 

10390 ; 
10400 

WT0PT1 

=* 5 HAIN 

WRITER ROUTINE 

10410 » 
10420 

JSR 

SLDNDK 

5SELECT DESIRED DISK 

10430 

BEQ 

W$OF‘T 1 


10440 

JHP 

NTRDER 


10450 

W$OPT1 

=* 


10460 

JSR 

HOHEHD 


10470 

LDA 

ENDTRK 

;SET TRACK NO, 

10480 

STA 

TKNDER 


10490 

BEQ 

UT$PT1 


10500 

LDX 

*$oe ; 

IF NOT TRACK OjCHANG P 

10510 

STX 

F'AGENH 

»NQ, TO REGULAR VALUE 

10520 

WT$PT1 

=* 


10530 

LDA 

LCTREG 

»HOVE FROH DESIR 

10540 

STA 

HLREG 

>LOCATION TO I/O BUF 


10550 

LDA 

LCTREG+1 


10560 

STA 

HLREG+1 


10570 

LDA 

tIOBUF 


10580 

STA 

HLRE61 


10590 

LDA 

♦IOBUF/256 


10600 

STA 

HLREG1+1 


10610 

JSR 

RUIODK 


10620 

JSR 

WRTTRK 

5WRITE I/O TO DISK 

10630 » 




10640 

ENB=* 



10650 i 




10660 

LDA 

*$0F 

> PROMPT 'ALL DONE 

10670 

JSR 

PROMPT 

i ANOTHER (Y/N) ? ' 

10680 

NOP 



10690 

NOP 



10700 

EN$=* 



10710 

JSR 

CSLIN1 

>GET THE ANSWER 

10720 

CMP 

*' Y 


10730 

BNE 

E$D 


10740 

JMP 

B$KULT 

5 IF YES > GO REPERTING 

10750 

E$D=* 



10760 

JMP 

QUIT 


10770 > 




10780 i 

DISKETTE TRACK WRITER 

10790 } 

%tt%t% % % % %%%%%%1111%% 

10800 ; 




10810 

WTOF‘TK : 

=* 5WRITE FROM DESIRED LOCATION 

10820 


i TO 

DESIRED TRACK 

10830 ; 




10840 

LDA 

*$0A 

»PROMPT WRITER 

10850 

JSR 

PROMPT 


10860 

LDA 

*$03 

5PROMPT FOR DISK NO, 

10870 

JSR 

DKNOHD 


10880 

STA 

DESTDK 


10890 

LDA 

*105 

>PROMPT FOR TRACK NO, 

10900 

JSR 

TRNOHD 


10910 

STA 

ENDTRK 


10920 

LDA 

*$0C 

»PROMPT FOR LOCATION 

10930 

JSR 

ADNOHD 


10940 

LDA 

ENDTRK 


10950 

BNE 

W$OPTY 


10960 

LDA 

*$0D 

»IF TRACK 0>PROMPT FOR 

10970 

JSR 

ADN0H1 

1L0ADER VECTOR 

10980 

STA 

HEADST+1 


10990 

STX 

HEADST 


11000 

LDA 

*$0E 

5PROMPT FOR PAGE NO, 

11010 

JSR 

PGNOHD 


11020 

W$QF'TY 

=* 


11030 

JSR 

SURERT 


11040 

JMP 

WTOF’T 1 

j GO WRITING 

11050 1 




11060 5 

DISKETTE UTILITY 


11070 ; 

************ **** 


11080 ; 





11090 

DIKULT= 

* 


11100 

CLD 



11110 

TSX 



11120 

STX 

STPTST 

jRESERVE STACK POINTER 

11130 

D$KULT= 

* 


11140 

LDX 

*$80 

5SET NEW STACK POINTER 

11150 

TXS 



11160 

LDX 

*$00 

j RESET INIT FLAG 

11170 

STX 

FLAG 


11180 

LD A 

*$01 

»PROMPT FORCCOMMAND 

11190 

JSR 

CMNOHD 

»AND HANDLE IT 

11200 

STA 

TEMP 


11210 

ASL 

A 


11220 

CLC 



11230 

ADC 

TEMP 


11240 

LDX 

4SWTBLE 

»DECIDE OPTION 

11250 

STX 

HLREG 

»COMMAND ADDRESS 

11260 

LDX 

4SWTBLE/ 

256 

11270 

STX 

HLREGI1 


11280 

ADC 

HLREG 


11290 

STA 

HLREG 


11300 

BCC 

DI$ULT 


11310 

INC 

HLREGI1 


11320 

DI$ULT= 

* 


11330 

JMP 

(HLREG) 

jBRANCH TO DIFFRENT 

11340 



?COMMAND ROUTINE 

11350 ; 




11360 

SWTBLE= 

* ; 

SWTICH TABLE 

11370 ; 




11380 

JMP 

ALCOF’Y 


11390 

JMP 

OPCOPY 


11400 

JMP 

INITRT 


11410 

JMP 

RDOF'TK 


11420 

JMP 

WTOPTK 


11430 

GUIT=* 



11440 

LDX 

STPTST 

5REC0VE STACK POINTER 

11450 

TXS 



11460 

RTS 




♦ 



